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na parte dei lettori è pro¬ 
babilmente già a conoscenza delle nuo¬ 
ve possibilità offerte dal “disco virtuale’’ 
(RAM-DISK) che il nuovo ZX Spectrum 
128K / +2 mette a disposizione, oltre al¬ 
la solita RAM di 48K, per un’estensione 
di quasi 75 kbyte. Sul RAM-DISK si pos¬ 
sono salvare programmi, byte, matrici e 
schermate, e poi ricaricarli, adottando i 
comandi SAVE! e LOAD! nelle varie for¬ 
me: ma ad una velocità enormemente 
superiore che su nastro. Oltre a SAVE!, 
LOAD! il nuovo ZX prevede pure MER- 
GE! e due comandi speciali: ERASE! 
per cancellare un file dal RAM-DISK, e 
CAT! per avere un elenco dei file pre¬ 
senti. Quest’ultimo però si riduce ad una 
misera lista di nomi, senza nemmeno 
specificare quanto spazio rimanga an¬ 
cora a nostra disposizione. Questo arti¬ 
colo rimedia a questa superficialità con 
un programma che fornisce un catalogo 
notevolmente più dettagliato dei file sul 
RAM-DISK. 


Conviene però riassumere breve¬ 
mente alcuni concetti base, forse già no¬ 
ti. Oltre alla RAM comunemente indiriz- 
zabile (16k di ROMe48kdi RAM), loZX 
Spectrum +2 dispone di altri 80K di 
RAM, il tutto suddiviso in “pagine” di 
16k, con un numero distintivo. Le “pagi¬ 
ne” sono numerate da 0 a 7, e quelle 
“normali” ( = RAM 48K) sono la 5, a 2 e 
la 0; mentre quelle che possono essere 
utilizzate come RAM-DISK (o in altri mo¬ 
di) sono la 1, 3, 4, 6 e 7. Queste ultime 
possono anche assumere una numera¬ 
zione, come “codepage” (CP) da 0 a 4, 
nel medesimo ordine. 

Quando sul RAM-DISK sono stati ca¬ 
ricati uno o più file in sequenza, essi oc¬ 
cupano successivamente la CP 0, poi la 
1, e così via; mentre allo stesso tempo 
nella CP 4, retrocedendo a partire dal¬ 
l’indirizzo 60416= ECOOh (tenendo 
conto che ogni CP parte sempre da un 
indirizzo 49152=C000h), per ogni file 
caricato sul RAM-DISK vengono carica¬ 
ti dati sul nome, indirizzo, lunghezza ec- 
c.: in tutto 20 byte per ogni file. Questa è 
la cosiddetta zona del “catalogo” ("di¬ 
rectory”), che viene esplorata dal co¬ 
mando CAT! per fornire la relativa lista. 
Ad ogni SAVE! od ERASE! vengono mo¬ 
dificate le relative zone (file e catalogo), 
ed inoltre aggiornati i contenuti di due 
variabili di sistema SF-NEXT (ind. 
23427/8) che fornisce l’indirizzo in CP 4 
dell’inizio del catalogo (dove un blocco 
di 20 byte precede il primo( = ultimo ca¬ 
ricato) blocco del catalogo); e SF- 
SPACE con l’indirizzo del primo byte li¬ 
bero dopo l’ultimo file (codificato come 
indirizzo=2 byte, e CP=3.o byte). 

Ogni file (programma, matrici, ecc.) 
caricato con SAVE! viene memorizzato 
in sequenza, per un numero di byte pari 
alla relativa lunghezza, preceduto però 
da 9 byte fissi che contengono altre in¬ 
formazioni sul tipo di file, lunghezza, e- 
ventuale linea autostart, ecc., in modo 



di Tullio Policastro 


Un programma 

in Basic 
che consente 
di ottenere 
maggiori informazioni 
rispetto al comando 

“catì” 


del tutto analogo aH’”header” (testata) 
sul nastro. Sono questi elementi che 
vanno letti ed interpretati, per fornire una 
versione migliorata di catalogo del 
RAM-DISK. E’ il compito svolto dal pro¬ 
gramma riportato nel Listato allegato. 

Sarà comunque utile ricordare come 
da BASIC si possono commutare le va¬ 
rie pagine di memoria per leggerne il 
contenuto. La pagina RAM n.o 0 (indi¬ 
rizzi da 49152 a 65535 = C000h - 
FFFFh), può, a differenza delle altre 
due, venire scambiata con una qualsiasi 
delle CP, mantenendo sempre gli stessi 
indirizzi. Per questo si usano i due 
comandi: 

POKE 23388, 16+n.pagina : OUT 
32765, 16+n.pagina 


(si usa il vero n.pagina, non quello di CP: 
la conversione fra questi valori è però 
semplice: se si assegna alla variabile 
stringa p$ la stringa “13467” e p è il nu¬ 
mero di CP, il corrispondente numero di 
cagina è VAL p$(p+1) (ad es. se p=3, 

slicing p$(3+1) fornisce il numero di 
cagina 6). Esiste anche una semplice 
: ormula : 

N = 1 + P + INT((P+1)/2) 

(ad es. per p=3, n = 1+3+INT(4/2) = 
4+2 = 6, come prima). 

Nel programma, la conversione è rea¬ 
lizzata dalla SR alle linee 10-16, in cui 
23388 è l’indirizzo della variabile di si¬ 
stema BANK-M (ultimo valore emesso 
sulla porta 32765). Quando si vuole ri¬ 
commutare sulla pagina 0 (RAM norma¬ 
le) il valore da usare nel POKE e nel- 
l’OLIT è 16. Per evitare ogni possibile 
perdita dello stack (e possibile “crash”) 
occorre fissare preventivamente la 
RAMTOP sotto 49152. 

Le linee 30-38 sono la SR di lettura 
dei dati di una voce del “catalogo”, con¬ 
tenuti nel blocco di 20 byte: ossia nome 
del file (n$), n.o di CP dove tale file inizia 
(p) e indirizzo relativo (start). Questi dati 
vengono letti entro la CP 4 ( = pagina'7) 
(linee 170-180 del listato). In base ad 
essi, dopo avere commutato sulla CP p, 





































































































































































































































































si leggono (linee 200-240) gli elementi 
contenuti in testa al file, ossia tipo file, 
lunghezza (escluso lo header, ma inclu¬ 
se le eventuali variabili salvate), indirizzo 
iniziale, eventuale nome dell’array o li¬ 
nea di autostart, e lunghezza del solo 
programma. Sono questi infine i dati vi¬ 
sualizzati (linee 260-300) per ciascun fi¬ 
le, oltre al nome del file. E’ prevista an¬ 
che l’eventuale stampa su carta (tramite 
una stampante collegata all’uscita 
RS232 dello ZX): basterà premere il ta¬ 
sto S in risposta alla •' chiesta (linea 120). 
Si usano le medesime istruzioni sia per 
la stampa sullo schermo che sulla stam¬ 
pante, semplicemente utilizzando il co¬ 
mando PRINT #K, con K= 2 rispettiva¬ 
mente 3. 

In pratica il catalogo completo lista 
per ciascun file: 

• nome del file 

• tipo (PB = progr. Basic; PV=- 
progr.-(-variabili; BY=byte; MN = matri- 
ce numerica; MS = matrice di stringhe) 

• le consuete specifiche CODE indirizzo, 
lunghezza (per i BY) LINE n.linea (per 
l’eventuale autostart : 0=no-autostart) 
seguito dalla lunghezza (per PB e PV) 
DATA nome matrice, lunghezza (per 
MN e MS) 

La lettura (e la stampa) di questi dati 
continua, ogni volta aggiornando l’indi¬ 
rizzo d’inizio della singola voce del cata¬ 
logo (c), sino a che questo raggiunge 

end = indirizzo puntato da SF_NEXT. 

Infine viene letto (I. 2010) e visualizzato 
lo spazio ancora libero sul RAM-DISK, 
desumendolo dalla var. di sistema 

SF_SPACE (23429/31). Prima però (I. 

2000) si ripristina il valore iniziale di 

BANK_M e si ricommuta la pagina 

RAM 0. 

Battete e salvate il programma sino al¬ 
la linea 1000 esclusa. Poi batete pure le 
linee 1000-1120: esse servono da “de¬ 
mo” di funzionamento. Con esse si 
creano un certo numero di file di vario ti¬ 
po (Basic, CODE, SCREEN$, DATA) 
che vengono salvati sul RAM-DISK (NB: 
alle linee 1060 e 1080 si salva l’intero 
programma, una volta con le variabili ed 
una volta “pulito” mediante CLEAR). 
Terminato il listato, e salvatolo se si vuole 
su nastro, si darà il RUN. Il catalogo del 
RAM-DISK (a meno di SAVE! prece¬ 
denti...) deve dare “nessun file” e 75 
Kbyte liberi. Poi si dia RUN 1000, e - do¬ 
po qualche secondo impiegato dal pro¬ 
gramma soprattutto per creare le matri¬ 
ci... - si vedrà comparire il listato delle ul¬ 
time righe (per creare uno SCREENS) e 
quindi il programma verrà rilanciato di 
nuovo, fornendo il catalogo del RAM- 
DISK nella nuova versione. 

E’ chiaro che il programma va carica¬ 
to ogni volta che necessario (magari dal 
RAM-DISK....), ricordando che elimine¬ 
rà l’eventuale programma Basic già in 
memoria. 

(List a pag. V) 
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SCRITTURA 

PROPORZIONALE 

di Timoteo Viatli 


e 32 caratteri per riga vi 
sono troppo stretti e volete dare anche 
una certa eleganza alle scritte che ap¬ 
paiono sul video, allora questa utility in 
codice macchina fa al caso vostro. Il 
programma n.1 carica il codice dalle li¬ 
nee DATA a partire dall’indirizzo 40136, 
ed alla fine, se tutto va bene vi appare il 
messaggio E:OUT OF DATA. Se avete 
sbagliato a ricopiare qualche riga vi ver¬ 
rà segnalato dal programma in q'uale li¬ 
nea DATA si trova l’errore: correggete e 
ridate RUN. Salvate quindi il codice de¬ 
positato in RAM con SAVE “PROP” CO¬ 
DE 40136,216 dopodiché ricopiate il 
programma ESEMPIO. Esso vi illustrerà 
le caratteristiche maggiori di questa 
scrittura proporzionale. 


Una breve routine 
in L/M per scrivere 

sullo schermo 
caratteri proporzionali 

Istruzioni per S’uso 

Per utilizzare la routine dovete porre la 
stringa di caratteri da visualizzare all’in¬ 
dirizzo INDR e digitare: 

POKE 40153,1 NDR-256*INT(INDR/256) 
POKE 40154,INT(INDR/256) 

Nella stringa si possono usare i seguenti 


codici: 

• 22 = PRINT AT che deve essere segui¬ 
to da due numeri coordinate X e Y; 

• 13 = RETURN fa riniziare la stringa dal¬ 
la linea successiva; 

• OOpEND indica la fine della stringa; 
Per vedere il risultato che si ottiene sullo 
schermo date RANDOMIZE USR 
40136. 

Tutto questo non richiede alcun set di 
caratteri speciale. La routine lavora con 
il set standard dello ZX, ma se si volesse 
cambiare il font, dovete mettere l’indiriz¬ 
zo di questo nelle locazioni 40139 e 
40140; per default esse contengono 
15360 (h3COO). 

'(List a pag. VI) 



TOOLKIT MANIA 



superbasic del QL avrebbe 
dovuto essere una specie di non plus ul¬ 
tra nel campo dei linguaggi di pro¬ 
grammazione. 

Almeno così pensava dive Sinclair 
quando sosteneva che il basic dell’ulti¬ 
mo suo computer era così completo ed 
efficiente da non temere nessuna con¬ 
correnza. Tony Tebby invece, l’autore 
del Qdos che ben conosceva pregi e di¬ 
fetti della macchina, pensava che forse il 
futuro utilizzo del computer avrebbe 
messo in luce carenze e mancanze di 
comandi, e così sistemò il sistema ope¬ 
rativo in modo che fosse molto agevole 
aggiungervi nuovi comandi. 

Gli anni a venire daranno ragione a 
Tebby; il QL è oggi il computer con più 
comandi basic disponibili del mercato 
(quasi, e forse più di, mille), comandi in 
grado di coprire tutte le esigenze che l’u¬ 
tilizzo rende manifeste. La categoria 
software QL dei toolkit (programmi co¬ 
stituiti appunto da gruppi di comandi ag¬ 
giuntivi) non ha eguali in nessun altro 
computer ed è veramente estesa sia per 
qualità che per quantità. Non c’è quasi 
nessun programma per QL che non 
contenga almeno qua che comando ag¬ 
giuntivo. E l’interesse del programmato- 
re di tutti i giorni sta proprio nel fatto di 
poter utilizzare tali comandi ANCHE nei 
propri programmi basic, ampliando così 
la sfera di utilizzo di molto software com¬ 
merciale del QL. 

In questo nostro articolo parleremo 
molto brevemente dei comandi più inte¬ 
ressanti contenuti in programmi e toolkit. 
Partiremo dal problema e quindi vedre- 


Una panoramica dei 
toolkit disponibili 

per il QL 


mo qual è il comando-soluzione, anzi¬ 
ché fare la solita recensione in cui ma¬ 
gari si parla di tutti e cento i comandi di 
un toolkit quando quelli interessanti non 
sono più di una decina. 


i del 


• La soluzione di alcuni 
QL 


1) Il caricamento lento dei program¬ 
mi basic 

L’avranno notato tutti. I programmi basic 
sul QL vengono caricati molto lenta¬ 
mente, sia da disco che da microdrive 
che da ramdisk. Tutto quell’accendi e 
spegnersi della lueina rossa del drive è 
provocato dal sistema usato dal Qdos 
per caricare i programmi basic. Essi 
vengono salvati sotto forma di normalis¬ 
simi file ASCII, i quali permettono le più 
utili e fantasiose modifiche e correzioni 
senza doverli ricaricare, ma richiedono 
un processo di tokenizzazione all’atto 
del caricamento in memoria. 

Le soluzioni possibili sono due: o si 
compila il programma (i file di byte o E- 
XEC si caricano molto più in fretta) op¬ 
pure si ricorre a qualche comando pro¬ 
gettato proprio per questo scopo. I co¬ 
mandi QLOAD, QSAVE e QLRUN della 


di Eros Forenzi 


Liberation Software rappresentano la 
soluzione del nostro problema. Basterà 
salvare un programma basic con QSA¬ 
VE MDV1 -nome per poterlo ricaricare in 
tempi ridottissimi con QLOAD MDV1- 
nome o con QLRUN MDVI-nome. 

Il pregio di queste utility è il fatto che 
un programma così salvato è trasporta¬ 
bile su altri QL con rom o espansioni di¬ 
verse, senza incorrere nei crash che si 
hanno se utilizziamo ad esempio altre 
procedure di caricamento veloce, come 
ad esempio i comandi FSAVE-FLOAD 
contenuti nel toolkit Q-F della Sandy, o 
come l’XSAVE e l’XLRUN della Qin- 
teram. 

2) La lentezza dei microdrive 

Altro difetto fastidioso del QL è la lentez¬ 
za dei Mdrive, più lenti (in velocità pura 
di caricamento) di quelli dello Spec- 
trum, che pure adottano la stessa mec¬ 
canica e le stesse cartucce. 

La software house tedesca QFALSH 
ci viene in aiuto con una terna di tre co¬ 
mandi. MDVLOAD “mdvl-” TO “raml- 
” copia un’intera cartuccia in ram in un 
tempo che va da 7 a 14 secondi. 
FBACKUP “ram” to “device” copia con 
la stessa velocità l’intero contenuto di un 
ram disk su un altro device (floppy, car¬ 
tuccia, hard disk ecc.). SBACKUP fa la 
stessa cosa, ma solo con i file che siano 
stati modificati dal momento del primo 
caricamento. 

A questo punto gli unici punti a favore 
dei disk drive rimangono la maggiore 
capacità, il minor costo dei dischetti e la 
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I I PRINCIPALI TOOLKIT PER 

QL 


! 

I TITOLO PROGRAMMA 

SOFTWARE HOUSE 

NUM.COMANDI 

CATEGORIA 1 

I GRAPHIC CONSTRUCTION KIT 

ULTRASOFT 

71 

GRAFICA I 

I GRAPHIC TOOLKIT 

PYRAMIDE 

80 

GENERICO ! 

| GIGABASIC 

ABC ELEKTRONIC 

77 

GENERICO 1 

1 SUPERBASIC EXTENSIONS 

HISOFT 

69 

FILES & QD0S 1 

1 QPTR (POINTER TOOLKIT) 

QJUMP 

43 

PROGRAMMI STILE QRAM 1 

I SPRITE GENERATOR v4.0 

DIGITAL PRECISION 

10 

GESTIONE SPRITES 1 

1 TURBO TOOLKIT 

DIGITAL PRECISION 

61 

FILES & QDOS I 

j SUPER TOOLKIT II 

QJUMP 

119 

FILES Si QDOS 1 

! MEGATOOLBOX 

COMPWARE 

172 

GENERICO 1 

1 TOOLBOX II 

ULTRASOFT 

14 

COPIATORE 1 

I QFLASH RAM TOOLKIT v4.0 

QFLASH 

7 

FILES & QDOS j 

1 POINTER'S & WRITER'S TK. 

JOCHEN MERZ 

99 

• m 

QDOS & TESTI GRAFICI 1 

I QINTERAM 

COMPUTER CENTER 

17 

FILES & QDOS 

I EIGEN WINDOWS 

EIGEN SOFT. 

9? 

o ■ 

GESTIONE FINESTRE 1 

I ICE TOOLKIT 

EIDERSOFT 

99 
■ • 

PROGRAMMI STILE ICE 1 

I CH- (QPLUS) 

QJUMP 

99 
■ • 

FILES & QDOS I 

I MDV TOOLCHEST 

ZITASOFT 

50 

MDRIVE D0CT0R 1 

I QLOAD 8 QREF 

LIBERATION SOFT. 

9 

FILES & DEBUGGING 1 

I E ALCUNI PROGRAMMI COMMERCIALI 


1 

I TITOLO PROGRAMMA 

SOFTWARE HOUSE 

NUM.COMANDI 

CATEGORIA 1 

I 3D PRECISION 

DIGITAL PRECISION 

60 

CAD IN 3D 1 

1 SUPER MEDIA MANAGER 

DIGITAL PRECISION 

8 

RECUPERO FILES 1 

BASIC ALLY 

TALENT 

5 

DEBUG & EDITING 1 

QIMP vi.50 

TALENT 

11 

FINESTRE 8 SUBDIR. 1 

QLIBERATOR v3.11 

LIBERATION SOFT 

23 

COMPILATORE I 

I EYE-Q v2.0 

DIGITAL PRECISION 

2 

GRAFICA 

I QWRITER vi.17 

JOCHEN MERZ 

4 

STAMPANTI EPSON j 

I SPEEDSCREEN 

CREATIVE C0DEW0RKS 

6 

VELOCIZZA DISPLAY 1 

I SIDEWINDER 

ZITASOFT 

1 

SCREEN DUMP 1 

I LEGENDA: 




1 GENERICO» Il toolkit contiene comandi che 

riguardano tutti o quasi tutti i ] 

| campi della programmazione. 



1 FILES & QDOS= I comandi riguardano la gestione dei files e di alcune 1 

I potenzialità 1 del sistema operativo, come 

ad es. il multitasking. 1 

! STAMPANTI EPSON» I comandi permettono di stampare testi 

1 caratteri dall'ottima grafica. 

impiegando nuovi set di I 


maggiore affidabilità. Questi tre coman¬ 
di si trovano in un toolkit venduto insie¬ 
me al velocissimo ramdisk virtuale 
della QFLASH. 

3) La gestione degli errori 

Un’altra mancanza del QL è la gestione 
degli errori, meglio nota come error trap- 
ping. Le rom JS, JSU ed MG contengo¬ 
no dei comandi che dovrebbero servire 
allo scopo ma il loro funzionamento è 
imperfetto e causa effetti secondari 
indesiderati. 

Gli altri QL-isti con rom AH e JM (la 
maggioranza) possono evitare di cam¬ 
biare rom per avere comandi per l’error 
trapping ricorrendo al TurboToolkit del¬ 
la Digital Precision oppure al Qliberator. 
Il Turbo Toolkit contiene infatti tra l’altro 
un completo set di comandi WHEN- 
ERROR, END-WHEN, RETRY-HERE 
che funzionano finalmente bene su tutte 
le rom. 

L’unico difetto è che un programma 
così gestito dovrà essere compilato con 
Turbo. Ossia, niente error trapping nei 
programmi interpretati. C’è però un ri¬ 
medio anche per questo: basta servirsi 
delle estensioni contenute nel compila¬ 
tore QLIBERATOR della Liberation 
Software (l’unico concorrente di Turbo, 
con molte caratteristiche interessanti), 
che consentono di gestire l’error trap¬ 
ping anche nei programmi basic inter¬ 
pretati, ossia quelli più usati. Tali coman¬ 
di sono: Q-ERR-ON, Q-ERR-OFF, Q- 
ERR e Q-ERR-LIST. 

• Alcune utility “utili”: 

1) Materiale grafico per tutti i gusti. 

L’ottima grafica de QL ha prodotto un 
considerevole numero di pacchetti gra¬ 
fici in grado di soddisfare tutte (o quasi) 
le esigenze. Peccato che ogni volta oc¬ 
corra partire da zero. Sì, insomma; se 
voglio realizzare una nuova schermata 
con, che so, una nave, dovrò costruirla 
da zero poiché non ci sono programmi 
per QL che mi possano prestare una im¬ 
magine di nave. Certo, ci sarebbe lo 
Spectrum. Con tutti i suoi giochi questo 
computer offre una miriade di scherma¬ 
te, alcune coloratissime e molto belle, da 
dove potremmo prendere gli sfondi da 
dove ricavare disegni migliori sul QL. 
Già, ma bisognerebbe prima collegare 
Spectrum e QL e poi convertire i 6912 
byte di uno SCREEN$ Spectrum in un 
formato compatibileroprio questo; cioè 
convertire le schermate dello Spectrum 
per caricarle sul QL. Dovremo prima tra¬ 
sferire uno Screen$ dallo Spectrum al 
QL, e per fare ciò potremo impiegare la 
RS232 (tempo di trasf.: 15 secondi) op¬ 
pure la network (non sempre praticabile. 
Sul mio QL JM D09 ci vogliono 15 minu¬ 
ti). Basterà ora dare i seguenti co¬ 
mandi: 

Sul QL: COPY SERI TO MDVI-nome- 
qualsiasi oppure 


COPY NETi-1 TO MDVI-nomequal- 
siasi 

Sullo SPECTRUM: LOAD “schermo”- 
SCREEN$: SAVE *”B”SCREEN$ 
oppure LOAD “schermo”SCREEN$: 
SAVE *”N”;1 SCREEN$ 

Terminata la trasmissione (quando lo 
Spectrum torna al basic) dovremo pre¬ 
mere BREAK sul QL per chiudere il file 
trasferito. A questo punto basterà dare 
SPECLOAD “MDVI-nomequalsiasi” 
per convertire la schermata e visualiz¬ 
zarla. In tutto occorrono un paio di 
secondi. 

Il risultato è un rettangolo di 256x192 
che non occupa tutto lo schermo del QL 
(che in MODE 8 ha 256x256 pixel. 

Basterà però digitare STRETCH per 
stirare l’immagine ^no a farle occupare 
l’intero schermo. I risultati sono ottimi e 
persino con gli errori di trasmissione 
della network si riesce ad ottenere qual¬ 
cosa su cui poter lavorare. 


2) Restiamo in tema di grafica ... 

Il Graphic Construction Kit offre anche 
molti altri comandi, tra cui ce ne sono al¬ 
cuni che facilitano la conversione di pro¬ 
grammi basic dello Spectrum e la grafi¬ 
ca in genere. 

PLOT e DRAW sono appunto i cloni 
dei due arcinoti comandi grafici dello 
Spectrum e lavorano in coordinate as¬ 
solute o relative (con DRAW-R). CMO- 
DE permette invece di convertire uno 
schermo da MODE 4 a MODE 8 e vice¬ 
versa, mentre MONO riduce uno scher¬ 
mo al bianco e nero. 

Il Gigabasic della tedesca ABC E- 
lektronic risolve invece il problema del 
comando superbasic FILL. Quest’ulti¬ 
mo non riesce infatti a fillare le forme 
grafiche strane o complesse che a volte 
possiamo creare. La risposta è nel co¬ 
mando PAINT, capace di riempire cor¬ 
rettamente anche le figure più con¬ 
torte. 
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3) Che belli i menu a discesa del MA¬ 
CINTOSH ... 

Suvvia, non disperate. Il Gigabasic ci 
mette a disposizione tutta una serie di 
comandi (MENU, SETMENU, GETME- 
NU, ACTIVE, ecc.) per gestire senza 
problemi menu a tendina e finestre reali 
nei nostri programmi basic. Inoltre tali 
programmi possono essere benissimo 
compilati per avere maggiore velocità. 

4) Come si fa a copiare da disco a di¬ 
sco con un solo drive? 

Una soluzione può essere quella di for¬ 
mattare un ramdisk ed utilizzarlo come 
ponte temporaneo, oppure copiare il di¬ 
sco su sette cartucce Mdrive e poi le 
stesse su un nuovo disco. Molto meglio 
procurarci il TOOLBOX II della Ultrasfot 
che tra l’altro permette anche questo. 
Basterà digitare i seguenti comandi: 


DEV-USE “FLP1” e CLONE-ALL TO 1. 
Ora basterà un metti e togli di sei sette 
volte (per dischi pieni zeppi) per avere la 
copia richiesta. 

Con il TOOLBOX II è anche possibile 
duplicare cartucce protette con la poke 
in formattazione. Basterà infatti digitare 
CFORM TO 2 ed inserire l’originale nel 
mdvl e una cartuccia vuota nel mdv2. 
Infine, con CHANGE device, file, vec- 
chia$, nuova$ potremo modificare qual¬ 
siasi stringa di caratteri all’interno di un 
determinato file; utile sopratutto per con¬ 
vertire programmi perchè possano gira¬ 
re anche su disco e viceversa. 

5) Come si fa a proteggere le cartucci- 
ne dai pirati? 

Generalmente il problema è il contrario; 
ossia, come si fa a sproteggere un pro¬ 
gramma. La Pyramide francese ha però 

pensato anche a coloro che desiderino 


a tutti i costi proteggere il frutto delle loro 
fatiche. Nel GRAPHICTOOLKITci sono 
due comandi adatti allo scopo: STAMP 
e CHECK. Il primo va a scrivere due nu¬ 
meri da 1 a 255 da noi scelti sulla cartuc¬ 
cia da proteggere. CHECK controlla in¬ 
vece che sulla cartuccia siano presenti 
quei due numeri. Basterà inserire 
CHECK all’interno del nostro program¬ 
ma basic e poi compilarlo perchè sia un 
osso duro per qualsiasi pirata. E’ ovvio 
che un programma così protetto può es¬ 
sere benissimo duplicato con un copia¬ 
tore settoriale, per cui suggerirei di non 
utilizzare nessuna forma di protezione in 
quanto esse procurano fastidi solo ai 
novellini e non certo ai pirati. E’ molto 
meglio ricorrere ad un bel messaggio di 
copyright inserito nel programma in mo¬ 
do che sia ben difficile cancellarlo, e 
sperare nell’onestà del prossimo. 

6) Un toolkit grafico ... non solo 
grafico 

Il Graphic Toolkit della Pyramide contie¬ 
ne molti comandi per la grafica e anche 
altri di tutt’altraapplicazione. Vediamone 
alcuni: LOOK permette di disinserire il 
tasto break; SHRINK riduce tutto lo 
schermo o una parte di esso; WAITMD 
permette al programma basic di conti¬ 
nuare SOLO dopo che si sono spente le 
lueine dei microdrive (ad es. dopo un 
SAVE); SFLASH toglie tutti i lampeggi 
che si hanno sullo schermo quando ca¬ 
richiamo in MODE 8 una schermata rea¬ 
lizzata in MODE 4. 

7) Come provare un record al tal 
giochino? 

In genere ci sono due soluzioni: o si spe¬ 
ra nella fiducia del prossimo, o si prov¬ 
vede a fare una bella fotografia dello 
schermo del gioco dove appare il nostro 
punteggio-record. Per coloro che non 
sono fotografi provetti e di cui nessuno si 
fida è oggi possibile ricorrere ad una ter¬ 
za soluzione. Il programma SIDEWIN- 
DER della Zitasoft contiene una interes¬ 
santissima routine dal nome SCR-EXE. 
Essa installa il comando SCR-SAV, il 
quale aziona una routine che permette 
di salvare la schermata di un qualsiasi 
momento su MDV o floppy, alla sempli¬ 
ce pressione di tre tasti. 

Ricordo che l’unico altro programma 
che permette una cosa simile è QKICK 
della Ultrasoft. Purtroppo devo a malin¬ 
cuore avvertirvi che non tutti i giochi per¬ 
mettono questi trucchetti. Alcuni di essi 
quando partono provvedono ad uccide¬ 
re tutti gli altri job in funzione in quel mo¬ 
mento. Due giochi della categoria intrat¬ 
tabili sono VROOM e PUZZLE 
MANIA. 

8) Alcuni aiuti per il programmatore. 

La Hisoft ci mette a disposizione tre co¬ 
mandi che permettono di esaminare 
passo-passo il funzionamento di un prò- 




Oc7 






















































gramma basic. I tre comandi sono TRA¬ 
CE, TRON, TROFF e sono contenuti nel 
toolkit SUPERBASIC EXTENSIONS. 

Il programma BASIC ALLY della Ta- 
lent offre invece il comando PLIST che 
fornisce un listato indentato molto ordi¬ 
nato e bello a vedersi. 

• Il tocco professionale: 

Si tratta di comandi non indispensabili, 
ma che possono da soli dare ai nostri 
programmi una rifinitura che normal¬ 
mente è appannaggio di prodotti ben 
più famosi. 

1) Estensioni D.O.C. 

Ecco ad esempio i due comandi NLQ- 
LOAD e NLQ-USE del programma 
QWRITER; una utility che consente di 
stampare qualsiasi testo con molti diver¬ 
si set di caratteri su stampanti Epson 
compatibili. I risultati sono veramente lu¬ 
singhieri, e, per chi volesse scrivere così 
anche sullo schermo, c’è il comando 
WRITE del toolkit POINTER’S & WRI- 
TER’S TOOLKIT. 

All’interno del TURBO TOOLKIT ci 
sono poi altre due interessanti estensio¬ 
ni. MOVE-MEMORY fà in basic quello 
che il processore 68008 non può fare 
con una apposita istruzione assembler, 
ossia spostare blocchi di memoria in gi¬ 
ro per la ram (vi ricordate della LDIR del¬ 
lo Z80?). Se vogliamo trasferire l’attuale 
contenuto dello schermo da 131072 a 
300000 potremo digitare (a scelta): 
MOVE-MEMORY 32768, 131072 TO 
300000 

MOVE-MEMORY 131072 TO 
300000, 32768 

La velocità di questo comando è molto 
alta e permette di fare cose impensabili. 
Ho ad esempio sotto mano un program¬ 
mino che mixa due schermate in più di 
venti modi diversi, un demo più che con¬ 
vincente sulla potenza di questo coman¬ 
do. Passiamo ora a SEARCH-MEMORY 
che permette di cercare in ram o in rom 
una certa stringa in un tempo estrema- 
mente breve. PRINT SEARCH-MEMO¬ 
RY (0,49152,"Sinclair”) ci restituirà il 
numero che identifica la locazione in cui 
inizia la stringa “Sinclair”. 

2) ente scelto solo sei dei 120 comandi 
in esso contenuti, e probabilmente ne 
avrò dimenticato qualcuno di interes¬ 
sante. LRESPR mdv?-nome permette 
in un sol colpo di evitare la so ita trafila 
--A=RESPR(numero):LBYTES mdv?- 
nome: CALL A — che a volte ci fa perde¬ 
re tempo poiché non conosciamo la 
lunghezza della routine che dev’esse¬ 
re caricata. WSTAT mdvl-nome o W- 
STAT mdvl- permette di conoscere 
lunghezza e data di salvataggio del file 
“nome” oppure di tutto il contenuto 
della cartuccia. Ricordo che il Toolkit 
2 permette di dare ai file nomi lunghi 
fino a 36 caratteri ed inoltre aggiunge 
la data dell’ultimo salvataggio effet¬ 


tuato. FTEST è una funzione che serve 
a controllare l’esistenza e lo stato di un 
file prima che su di esso vengano fatte o- 
perazioni di lettura-scrittura. Questo 
permette di rilevare eventuali errori (poi¬ 
ché magari non c’è nessuna cartuccia 
nel mdv selezionato) e reagire di conse¬ 
guenza, senza rischiare di interrompere 
il programma. 

Con ALCHP e RECHP abbiamo poi la 
possibilità di caricare in memoria routine 
in linguaggio macchina anche quando 
siano già stati caricati programmi EXEC 
(in tali casi, come sapete, il comando 
RESPR non funziona più). 

C’è persino una sveglia, che viene re¬ 
golata dal comando ALARM. ALARM 
12,00 farà così suonare il QL a mezzo¬ 
giorno in punto (ammesso che l’orologio 
sia stato correttamente regolato). Infine, 
ALTKEY è una utilissima estensione che 
permette di ridefinire i tasti associando 
ad essi una sequenza di comandi. 
ALTKEY “L”,”LRUN MDV1-BOOT” ca¬ 
richerà il file boot dal mdrive 1 alla pres¬ 
sione dei tasti ALT & L. 

3) Nel guinnes dei primati. 


Può anche essere un’idea. Sì, perchè 
con 172 comandi il MEGATOOLBOX 
della Compware è senza dubbio il più e- 
steso toolkit disponibile per QL, e se¬ 
condo me sopravanza agevolmente an¬ 
che la concorrenza di altri computer. I- 
noltre, l’autore del programma ( 'italiano 
Francesco Balena) è riuscito a creare un 
toolkit non solo molto esteso ma anche 
composto di comandi in gran parte ori¬ 
ginali, ossia che non si trovano in forma 
simile da nessun altra parte. Vediamone 
alcuni (in futuro potremo magari ritorna¬ 
re in dettaglio su uno o più dei toolkit 
presentati in questo articolo): INPUT-X() 
permette di chiedere l’inserimento di u- 
na stringa SENZA interrompere l’esecu¬ 
zione del programma; PLAY-X permette 
invece di suonare una musichetta in 
background, cioè senza interrompere il 
programma principale; PRINT-3D per¬ 
mette di scrivere su schermo con un ef¬ 
fetto tridimensionale, mentre FREE- 
SECTQ restituisce il numero di settori li¬ 
beri sul device specificato. Ci fermiamo 
qui, anche se ovviamente non ci sono 
solo 4 comandi interessanti su 172. 

4) L’ultima spiaggia: 


Cosa fare se il comando di cui abbiamo 
bisogno non compare in nessuno dei 

toolkit disponibili? Certo, sarebbe pur 
sempre possibile realizzare una qualche 
procedura basic che risolva il problema, 
ma in molti casi i risultati non sarebbero 
incoraggianti. E allora? Saremo costretti 
ad imparare la programmazione assem¬ 
bler? Niente affatto. Per ora vi basti sa¬ 
pere che il compilatore QLIBERATOR 
(v3.10 e superiori) offre la possibilità di 
compilare programmi di poche linee o 
anche molto estesi in modo che si com¬ 
portino come estensioni del basic. Sì, a- 
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vete capito bene. Possiamo realizzare 
un toolkit tutto nostro che si carica con 
RESPR e che contiene estensioni basic 
identiche (solo un po’ più lente) a quelle 
dei toolkit commerciali. 

• Alcune avvertenze importanti 

Abbiamo detto che i comandi contenuti 
nei toolkit possono essere utilizzati nei 
srogrammi basic di ciascuno di noi. 
tossiamo ovviamente anche caricare 
TUTTI i toolkit di cui vi ho parlato, ed a- 
vere circa 800 comandi aggiuntivi in li¬ 
nea contemporaneamente (memoria 
sermettendo). In tali casi potranno veri- 
icarsi problemi di sovrapposizione, nel 
senso che il computer potrà bloccarsi 
(leggi: crash del sistema) se utilizzeremo 
comandi che hanno lo stesso nome ma 
funzioni diverse. Il comando DUMP si 
trova ad esempio sia nel Graphic Toolkit 
(dove serve per l’hardcopy dello scher¬ 
mo), sia nel Gigabasic (dove visualizza 
variabili, procedure e funzioni del pro¬ 
gramma), sia nel Megatoolbox (dove 
stampa il contenuto della memoria). 
Non ci sono invece difficoltà se le so¬ 
vrapposizioni sono solo di nome. 
ALCHP e RECHP si trovano sia nel 
Graphic Toolkit che nel Toolkit 2, ma 
svolgono gli stessi compiti e perciò non 
causano conflitti. 

Si può poi affermare che in generale 
tutti i comandi dei toolkit possono essere 
impiegati in programmi compilati, anche 
se non mancano eccezioni. In ogni caso 
il compilatore QLIBERATOR è molto più 
tollerante di TURBO in questi frangenti, 
ed in almeno un caso è l’unico compila¬ 
tore compatibile. Mi riferisco al toolkit 
QPTR della QJUMP, il quale permette di 
realizzare programmi basic con gli stessi 
menu e le stesse caratteristiche del fa¬ 
moso QRAM. Un programma che utiliz¬ 
za le estensioni del QPTR può essere 
compilato solo con QLIBERATOR e non 
con.TURBO. 

E, per concludere, ecco una avver¬ 
tenza limitata ai possessori di QL con 
rom JM e AH. Nell’articolo sulle rom so¬ 
no purtroppo sfuggiti numerosi bug 
(questo QL non finisce mai di stupirci!) 
tra cui uno particolarmente fastidioso. E 
cioè: non è possibile utilizzare un co¬ 
mando aggiuntivo nello stesso pro¬ 
gramma che carica la relativa routine. Mi 
spiego: dobbiamo dividere in due tutti i 

programmi; caricare prima le estensioni 
e POI caricare UN SECONDO program¬ 
ma in cui tali estensioni vengono utilizza¬ 
te. Ecco quindi spiegata la ragione del¬ 
l’errore BAD NAME che appare dopo 
che abbiamo tentato di utilizzare un co¬ 
mando aggiuntivo appena caricato. 

Lo schema riassuntivo che trovate in 
questo articolo comprende quasi tutti i 
toolkit disponibili ed anche un buon nu¬ 
mero di programmi di altro tipo che han¬ 
no un file separato (e, quindi, che pos¬ 
siamo incorporare nei nostri program¬ 
mi) in cui sono contenute estensioni al 
basic. 


IL SOUND CHIP 

.LO SPECTRUM 

di Andrea Gallo 


SU I primo Spectrum è ancora og¬ 
gi famoso non solo per la rivoluzione 
portata nel mondo dei microcomputer e 
per i suoi cavi di collegamento estrema- 
mente corti, ma anche per il suono più 
che rudimentale e non certo esaltato dal 
misero altoparlante interno. A tali lacune 
si è cercato di provvedere negli anni con 
soluzioni hard e soft e si è addirittura ot¬ 
tenuto un suono pseudo bicanale. 

Finalmente la generazione dei 128 
(leggi 128, +2, +3 e forse prossima¬ 
mente + 2A o +2.5, predisposto per 
montare un’espansione per il disco del 
+ 3) ha conosciuto l’integrazione del cir- 


Una trattazione 
completa e dettagliata 

del sound chip 
dello Spectrum Plus 

cuito con un ottimo sound-chip: l’AY-3- 
8912, lo stesso degli Amstrad CPC, “fra¬ 
tello minore” dell’AY-3-8910, montato 
sugli MSX. Tale componente fornisce un 
suono su tre canali con generatore di ru¬ 


more, di inviluppo, mixer, volume rego¬ 
labile e molto altro. Il suo utilizzo da Ba¬ 
sic è reso estremamente semplice dal¬ 
l’istruzione PLAY. La semplicità va però 
a scapito della qualità se teniamo pre¬ 
sente che è pressocchè impossibile se¬ 
guire effetti speciali, quali esplosioni o 
spari, o suonare mentre il programma 
Basic continua la normale esecuzione, 
senza dover invece attendere il termine 
del motivo suonato. La prima limitazione 
è facilmente superabile anche in Basic, 
ricorrendo ad un appropriato uso dell'i¬ 
struzione OUT. Per suonare indipen¬ 
dentemente dal programma Basic in e- 
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sedizione, si deve invece ricorrere a 
particolari routine in l/m che agiscono 
sotto interrupt. 

Lo scopo di questo articolo è appunto 
di analizzare sufficientemente la pro¬ 
grammazione del sound chip tramite IN 
e OUT e approfondire il discorso sull’e¬ 
secuzione di brani musicali sotto in¬ 
terrupt. 

Il Programmable Sound Generator 
(PSG) dello Spectrum ha una frequenza 
di clock di 1.7734 MHz e viene program¬ 
mato attraverso 15 suoi registri. In realtà 
al momento ci interessano i primi 14 in 
quanto il quindicesimo controlla la porta 
MIDI/RS232. La lettura/scrittura dei re¬ 
gistri avviene, come accennato, attra¬ 
verso operazioni di IN e OUT, sia in Ba¬ 
sic che in l/m, sulle porte FFFDh 
(65533) e BFFDh (49149). Inviando alla 
prima un valore tra 0 e 14 selezioniamo il 
registro desiderato, mentre vi scriviamo 

un byte a 8 bitscon "OUT 49149,byte" e 
ne leggiamo il contenuto con "LET a= IN 
65533” o "LET a=IN 49149”. 

I registri 0 e 1 e parallelamente in cop¬ 
pia 2,3 e 4,5 definiscono il periodo del 
tono della nota in esecuzione rispettiva¬ 
mente sul canale 1, sul 2 e sul 3. Tale va¬ 
lore a 16 bits, compreso tra 0 (cioè pau¬ 
sa) e 4095 (si tratta in effetti di un nume¬ 
ro a 12 bits) e inviato nella sua parte bas¬ 
sa al primo registro della coppia e nella 
parte alta al secondo, è determinato dal¬ 
la funzione x(f) = clock/16/f dove f è la 
frequenza del suono in Hz e clock/16 dà 
110830 Hz. 

II registro 6 definisce il periodo del ge¬ 
neratore di rumore, un numero a 5 bits 
determinato dalla funzione x(f) = clock/ 

16/f dove f è la frequenza di rumore. Co¬ 
me per il periodo di tono anche qui par¬ 
liamo di periodo, cioè più è alto il valore 
inviato ai registri e più cupo è il suo¬ 
no/rumore prodotto. 

Il registro 7 controlla il mixer. Ogni ca¬ 
nale può infatti generare un suono pulito 
o un rumore o entrambi contempora¬ 
neamente. I bits del registro hanno per¬ 
ciò il seguente uso: D7-non usato; 
D6= 1 cioè input dalla porta Ml- 
DI/RS232 e 06 = 0 cioè output; D5 = 0 
cioè rumore abilitato sul canale C; D4 i- 
dem per il canale B; D3 idem per il cana¬ 
le A; D2 = 0 cioè suono abilitato sul ca¬ 
nale C; D2 idem per il canale B; DO idem 
per il canale A. Sono possibili tutte le 
combinazioni, anche BIN 0000000, a- 
vendo suono e rumore sui tre canali allo 
stesso istante. 

I registri 8,9 e 10 definiscono il volume 
dei canali 1,2 e 3. Se il valore inviato è u- 
guale a 16 allora su quel dato canale 
verrà utilizzato il generatore di invi¬ 
luppo. 

I registri 11 e 12 definiscono la fre¬ 
quenza di inviluppo, un numero a 16 bits 
determinato dalla funzione x(f) = clock/ 
256/f dove f è la frequenza di inviluppo 
in Hz e clock/256 da 6927 Hz. 

II registro 13 definisce il tipo di invilup¬ 
po desiderato. La frequenza di invilup¬ 
po, innanzitutto, viene ulteriormente di¬ 



visa per 16, determinando il valore di un 
contatore a 4 bit (0-15 in decimale). Tale 
contatore determina l’andamento del¬ 
l’inviluppo. Il bit 3, "continue”, posto a 0, 
fa sì che l’inviluppo occupi un solo ciclo; 
invece, posto a 1, definisce l’andamento 
dell’inviluppo concordemente al bit 0, 
"hold”: quando quest’ultimo è posto a 1 
l’inviluppo è limitato ad un solo ciclo e il 
contatore mantiene l’ultimo valore as¬ 
sunto. Il bit 2, "attack”, posto a 1, azzera 
il contatore facendogli assumere valori 
in crescendo; posto a 0, determina una 
caduta dell’inviluppo. Il bit 1, "alternate”, 
posto a 1, determina un’inversione della 
direzione di conteggio al termine di ogni 
ciclo. Quando i bits 0 e 1 sono entrambi 
posti a 1, prima di mantenere costante il 
contatore a fine ciclo, esso viene 
azzerato. 

Esaminati, pur sinteticamente, i 14 re¬ 
gistri, veniamo ora alla procedura per far 
suonare al PSG, ad esempio, un LA del¬ 
la sesta ottava, cioè di frequenza 880 Hz, 
sul canale A: 

1) impostare il mixer (R7) con BIN 
11111110 (254 decimale); 

2) impostare R0 con 125 e RI con 0 
(125=110830/880); 

3) impostare il volume del canale A (R8) 
con 15. 

4) per far terminare l’esecuzione porre a 


0 R8. 


Gli interrupts 

Passiamo ora alla parte più complicata 
del discorso. Innanzi tutto, trattandosi di 
un 128, gli interrupts devono essere in¬ 
dicizzati sotto l’indirizzo 49152 perchè la 
Ram a C000H (49152) viene continua- 
mente cambiata dal sistema operativo 
per accedere alla ramdisk o usare il dri¬ 
ve o predisporre buffer temporanei. I- 
noltre la nostra routine deve essere tanto 
rapida da non rallentare il programma e- 
seguito in foreground, cioè quello prin¬ 
cipale (il programma sotto interrupt è 
anche detto in "background”, cioè 
sullo sfondo). 

Il programma che presentiamo, 
Musici28-lnterrupt (MI281), è pertanto 
rilocato all’indirizzo 47781 e utilizza un 
contatore degli interrupts in modo da 
considerare un solo canale del chip so¬ 
noro per volta, così da non rallentare il 
programma principale. 

Dato che il microprocessore esegue 
50 chiamate di interrupt al secondo, si è 
pensato di chiamare la routine relativa a 
ciascun canale 10 volte al secondo per 
semplificare i calcoli della durata di cia¬ 


scuna nota. Infatti se 1 sec. equivale a 1 
50 interrupts, ciò è anche uguale a 10 ci- I 
eli del contatore ( = 50/10 = 5 chiamate I 
di interrupts = 3 chiamate una per ogni I 
canale dell’AY-3-8912 + 2 chiamate li- I 
bere), mentre sarebbe impossibile ave- I 
re un ciclo di 50/3=16.6 periodico. I 
Si è anche pensato che sarebbe risul- I 
tata cosa gradita mettere a disposizione I 
dell’utente le due chiamate libere per I 
poter ad esempio aggiornare un oroio- I 
gio o muovere gli sprite sullo 1 

schermo. I 

Ricapitolando: 10 volte al secondo I 
vengono eseguite 5 routines, delle quali I 
3 relative al controllo dei tre canali del | 
sound chip e 2 per default equivalenti ad 1 

un semplice RET. I 

Prima di inviare qualsiasi dato al PSG, I 
i suoi 14 registri devono essere corretta- I 
mente impostati. A ciò provvede il prò- I 
gramma, prelevando 14 bytes memoriz- I 
zati dall’utente a partire dall’indirizzo I 

48300. _ I 

Per quanto riguarda i dati da inviare al I 

PSG, essi sono memorizzati in tre buf- I 
fers distinti, posti in una qualsiasi dispo- I 
sizione di memoria, anche nella ram- I 
disk, se si rinuncia al suo uso tramite i I 
comandi basic diretti. Le locazioni I 
48419/20, 48421/2 e 48423/4 conten- I 
gono l’indirizzo di base di ciascuno dei I 
tre canali, nell’ambito dei 48k di ram, I 
mentre le locazioni 48343, 48357 e I 
48371 determinano per ciascun canale I 
quale pagina ram deve essere posta al- I 
l’indirizzo COOOh (49152), tenendo pre- I 
sente che la pagina 0 è quella normal- I 
mente accessibile da Basic con PEEK e. I 

POKE mentre la 7 è usata dallo Spec- I 
trum e la 2 e la 5 sono fisse alle locazioni I 
32768 e 16384 (cfr. manuale al capitolo | 
sull’uso di IN e OUT). I 

Per trasferire i dati in una particolare J 
pagina ram diversa da 2,5,7 e 0 (nella I 
pagina 0 i dati possono essere posti I 
semplicemente con LOAD’’”CODE I 
xxxxx), essi devono essere caricati nella I 
pagina 5 o nella 2 (tra gli indirizzi 16384 I 
e 49152, stack e Basic permettendo, ad I 
es. all’indirizzo 30000) e trasferiti tramite I 
un’appostita routine (cfr. listato assem- I 
bler linee 260-380) memorizzata allindi- | 

• rizzo BB20h (47904). L’indirizzo BB26h I 
(47910) contiene la ram page che deve I 
essere posta a COOOh (49152); invece le I 
locazioni BB2D/Eh (47917/8), BB30/1h 
(47920/1) e BB33/4h (47923/4) defini- I 
scono • rispettivamente l’indirizzo della I 
sorgente (cioè del buffer ove si trovano i I 
dati da trasferire), della destinazione I 
nella pagina ram e del numero di bytes I 

da trasferire. I 

E’ bene notare che la versatilità della I 
routine permette anche il processo in- I 
verso, cioè il copiare dei dati dalla pagi- I 
na ram mobile al video o altrove. I 

Si deve tenere presente che anche la I 
ramdisk utilizza le varie pagine ram mo- I 
bili e che, una volta trasferiti lì dei dati, I 
non è prevedibile il risultato dell’utilizzo I 
della ramdisk tramite i comandi Basic. I 
Voglio dire che il sistema potrebbe an- I 
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che andare in crash. E’ bene dunque va¬ 
lutare la situazione e decidere se porre i 
dati solo nei normali 48k di ram e utiliz¬ 
zare la ramdisk normalmente o rinun¬ 
ciarvi e avere a disposizione molto spa¬ 
zio per la musica. 

Tornando dunque ai dati da inviare al 
PSG, essi sono disposti in gruppi di 2 
bytes e definiscono dei veri e propri co¬ 
mandi. Sono divisi in due tipi: il primo, u- 
na volta eseguita la routine relativa, cede 
il controllo al programma principale; il 
secondo, invece, analizza il comando 
seguente, fino a trovare un comando di 
tipo 1. Questo perchè, come nel coman¬ 
do Basic PLAY, prima di selezionare la 
nota da suonare si può voler cambiare il 
volume o l’ottava o la durata. Così ven¬ 
gono eseguiti i comandi secondari, co¬ 
me il cambiamento di volume, finché 
non si trova il comando relativo al perio¬ 
do della nota, o uno equivalente. 

I comandi disponibili sono 8 (cfr. lista¬ 
to assembler linee 2940-3010 e 1860- 
2430). I d ue bytes costituenti il comando 
stesso vengono in sostanza trattati come 
un numero a 16 bits con i bits 0-7, i più 
bassi, memorizzati come al solito per 
primi. I 4 bits più alti (bits 12-15) defini¬ 
scono il comando desiderato mentre i 
bits 0-11 contengono un eventuale 
parametro. 

Esaminiamo i comandi, dunque, uno 
per uno: 

0) TONERÒ - I 4 bits 12-15 devono es¬ 
sere posti a 0 mentre i bits 0-11 indivi¬ 
duano un nuovo periodo di tono. E’ un 
comando di tipo 1, cioè terminata la rou¬ 
tine relativa, viene considerata conclusa 
la chiamata degli interrupts e il controllo 
del sistema viene ceduto al programma 
in foreground. 

1) LENGR - I bits 12-15 definiscono il 
numero binario 0001 (1 decimale); i bits 
0-11 invece la durata della nota in corso 
calcolata in decimi di secondo (cioè 
sec*10). E’ un comando di tipo 2, cioè il 
programma esegue anche il comando 
successivo, fino a trovare un comando 
di tipo 1. 

2) VOLMR - Bits 12-15= OOlOb (2d); 
bits 0-3 = nuovo volume se il bit 4 = 0, al¬ 
trimenti (bit 4= 1 ) il volume varia confor¬ 
memente all’inviluppo prescelto. Co¬ 
mando di tipo 2. 

3) STRTR - Bits 12-15= 0011 b (3d); bits 
0-11=0. Cioè bits 0-15 = 12288d. Fa ri¬ 
cominciare il brano relativo al canale 
considerato, riportando il puntatore al¬ 
l’indirizzo di base. Comando di tipo 2. 

4) SALLR - Bits 12-15= OlOOb (4d); bits 
0-11 =0. Cioè bits 0-15= 16384d. Fa ri¬ 
cominciare i brani dei tre canali dall’ini¬ 
zio, riportando i tre puntatori agli indirizzi 
base; inoltre chiama la routine di SE¬ 
TUP, eseguita ad ogni inizializzazione 
de! sistema. Comando di tipo 2. 

5) CENDR - Bits 12-15= OlOlb (5d); 
bits 0-11=0. Cioè bits 0-15 = 20480d. 
Fa terminare l’esecuzione sul canale 
considerato, ponendo a 0 il volume e di¬ 
sattivando la chiamata degli interrupts 
(vedi oltre: attivare o disattivare un cana¬ 


le). Comando di tipo 1. 

6) CALLR - Bits 12-15= OllOb (6d); 
bits 0-11=0. Cioè bits 0-15 = 24576d. 
Fa terminare l’esecuzione dei tre canali, 
ponendo a 0 il volume e disattivando la 
chiamata degli interrupts, che però ri¬ 
mangono in modo 2; cioè, se utilizzate, 
sono sempre operative le due chiamate 
libere. Comando di tipo 1. 

7) NOISR - Bits 12-15= 0111 b (7d); bits 
0-4 = nuovo periodo di rumore. Coman¬ 
do di tipo 1. 

Per attivare M1281, come si può facil¬ 
mente notare consultando il listato as¬ 
sembler, si deve chiamare la routine IN- 
TON, posta all’indirizzo BBOIh (47873): 
essa predispone gli interrupts in modo 2 
indicizzati all’indirizzo 47871, dal quale 
ad ogni chiamata il controllo del sistema 
salterà all’indirizzo BB79h (47993). 

La routine INTOFF (BBODh - 47885d) 
provvede a reimpostare gli interrupts in 
modo 1 e a portare il volume dei tre ca¬ 
nali a 0. 

COPY (BB20h - 47904d), come già 
detto, provvede a trasferire blocchi di 
dati nell’ambito degli interi 128k. 

SETUP (BB40h - 47936d) predispo¬ 
ne il PSG: lo stato iniziale dei tre canali, il 
mixer, i tre volumi, il generatore di invi¬ 
luppo e quello di rumore, cioè tutti i dati 
da inviare ai 14 registri, come già detto, 
devono essere posti nel buffer TABLE 
(BCACh - 48300d). Tale routine viene 
chiamata sia per inizializzare il PSG sia 
per ricominciare i brani suonati sui tre 
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INTHND (BB79h - 47993d) è la routi¬ 
ne di gestione degli interrupts. Con una 
particolare tecnica di programmazione 
viene simulata la funzione ON x GO- 
SUB. Gli indirizzi delle routines sono 
memorizzati in DATA e in TABLE2. Se u- 
na delle suddette locazioni contiene l’in¬ 
dirizzo relativo a ROUT2 (BBAIh - 
48033d), allora la chiamata di interrupt 
ad essa collegata è da considerarsi di¬ 
sattivata, in quanto il sistema esegue so¬ 
lo un RET e cede subito il controllo al 
programma in foreground. Per attivare 
ciascuna chiamata deve essere posto 
nelle locazioni adeguate l’indirizzo della 
routine che vogliamo venga eseguita. 

Di tali indirizzi, quelli relativi ai tre ca¬ 
nali sono memorizzati in DATA (BCBA- 
BCBFh/48314-48319) e poi duplicati 
dal programma in TABLE2. Questo per¬ 
chè le locazioni di TABLE2 subiscono 
delle modificazioni durante l’esecuzione 
sotto interrupt percui è bene averne una 
copia. Per un esempio sull’attivazione 
dei 3 canali e sulla disattivazione delle 2 
chiamate definibili, vedere il listato 3. 

Gli indirizzi relativi alle due chiamate 
definibili sono invece memorizzati diret¬ 
tamente in TABLE2 (BCC6-BCC9h/ 
48326-48329). Bisogna tenere presente 
che, come Music128l, così anche le 
routines che utilizzano le due chiamate 
definibili devono essere rilocate al di 
sotto di 49152 (e quindi al di sotto di 
47871) poiché non è prevedibile quale 
pagina ram si trova a COOOh o quale rom 


è stata selezionata. Le routines devono 
terminare con un RET e non è necessa¬ 
rio salvare sullo stack tutti i registri e ripri¬ 
stinarli prima del RET in quanto a ciò 
provvede già il programma chiamante. 

Per mantenere il blocco di dati costi¬ 
tuente M1281 nel limite dei 600 bytes si è 
usata una particolare tecnica di pro¬ 
grammazione percui la sezione che agi¬ 
sce su uno dei canali del PSG viene di 
volta in volta "rilocata” in modo da fun¬ 
zionare anche sugli altri due. Ciò ha per¬ 
messo in sostanza di dimezzare i 
bytes occupati. 

In finale, per agevolare la definizione 
dei 3 buffers contenenti i dati da inviare 
al PSG, ho deciso di scrivere una routine 
Basic che converte i files prodotti da Mu- 
sic128 (PC 19): essa carica in memoria 
un array d$(1) per volta e lo codifica a 
partire dall’indirizzo 30000, richiedendo 
quale end-marker si intende, utilizzare 
(cioè quale comando 3-6) e registrando 
i bytes ottenuti al termine. Tali bytes sa¬ 
ranno poi ricaricati con un programma 
basic simile al listato 3. 

Per avere una versione operativa di 
Musici281 digitate e lanciate il caricato¬ 
re del l/m. Provvederà a registrare i dati 
necessari. Per utilizzare invece il basic 
che converte i files di MI28, digitate il li¬ 
stato 2. In esso viene definito un array 
v(o,n) che contiene i periodi di tono per 
ogni ottava “o” e nota “n”, dove "o” è tra 
1 e 7, ma restituisce i valori relativi alle 
ottave 2-8, e “n”, tra 1 e 14, individua u- 
na delle seguenti note in ordine cre¬ 
scente: DO, DO#, RE, RE#, MI, MI# 
(uguale a MI, incluso per evitare ulteriori 
calcoli), FA, FA#, SOL, SOL#, LA, 
LA#, SI, SI# (stesso discorso che per 
MI#: MI28 permette erroneamente la 
definizione delle note MI# e SI# e così 
devono essere considerate come valide 
e, per non doverle controllare e mutare 
in MI e SI, si è preferito assegnargli lo 
stesso valore di MI e SI). 

Il programma basic di codifica per¬ 
mette di inserire nelle stringhe anche il 
controllo del generatore di rumore, cosa 
non disponibile direttamente nelle strin¬ 
ghe di MI28, tramite la funzione R se¬ 
guita dal periodo di rumore. Per avere 
ad esempio in sottofondo il rumore delle 
onde del mare, occorre digitare un pro¬ 
gramma simile al seguente, registrare 
l’array d$(1) prodotto e includerlo nel 
programma basic di codifica come uno 
dei files generati da M128: 

10 LET n$=”4R1R3R5R7R9R11R13 
R15&R13R11 R9R7R5R3R1&”: 

DIM d$(1,LENn$): SAVE "dato3.bin” 
DATA d$() 

Per quanto riguarda il valore di T richie¬ 
sto prima di codificare ciascun file di 
MI28, esso si riferisce al parametro T 
normalmente inserito nelle stringhe del 
comando PLAY, per semplicità non di¬ 
sponibile in M128. 

(List a pag. VII) 
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ALLUNAGGIO 

di Timoteo Vitali 



hi di voi non ricorda le ore 
passate nei tentare di far atterrare una 
navicella spaziale nel peggiore dei posti 
possibili, fra vallate e dirupi? Era un 
gioco da bar che alcuni anni fa ebbe un 
certo successo. Poi fu proposto per 
quasi tutti gli home-computers, ma 
come tutti i giochi cadde ne dimentica¬ 
toio; chissà, forse era troppo tecnico e 
c’erano da controllare diversi parametri 
di volo, come sugli attuali simulatori. 

Questa che vi proponiamo è una ver¬ 
sione semplificata ma che ha il pregio di 
far rivivere quelle vecchie emozioni. La 
grafica è abbastanza veloce e i comandi 
sono ridotti al minimo indispensabile: 
dovete solo sforzarvi di far atterrare la 
fragile navicella, dolcemente, sulla stret- 


$ 


Provate la vostra 


abilita in un 
velocissimo gioco! 


ta base accerchiata dalle montagne. 
Quindi dosate attentamente la spinta per 
rallentare la caduta dall’alto dovuta alla 
attrazione gravitazionale; si usano a tale 
scopo i tasti 1,2,3 per regolare la spinta 
del motore: 1 riduce la spinta, 2 la man¬ 
tiene, 3 la aumenta. 

Per spostarvi lateralmente dovete in¬ 
clinare la navicella in modo che si abbia 
una componente di spinta laterale. A ta¬ 



le scopo si usano i tre tasti: 8 inclina a si¬ 
nistra, 0 a destra, 9 riassetto. 

Per avere un’idea delle velocità che 
raggiungete, in basso a sinistra sullo 
schermo sono mostrate la velocità a- 
scensionale (positiva) Vy e quella latera¬ 
le Vx: entrambe devono essere quasi 
nulle per fare un buon allunaggio. Potete 
scegliere fra due livelli di difficoltà. 


La tecnica del gioco 

Il programma si avvale di alcune routine 
in I/m per gestire grafica e suono. Può 
girare sia sullo Spectrum 16K che su 
quello da 48K. 

• La routine grafica muove la sagoma 
della navicella in modo preciso e rapi¬ 
do, generando una decina di immagini 
al secondo. Essa ritorna al basic con un 
codice appropriato per segnalare colli¬ 
sione, atterraggio riuscito, uscita di x e y 
dai limiti dello schermo. Tale codice vine 
utilizzato da GOTO per deviare il corso 
del programma alle apposite linee 1030, 
1034, 1100. La routine sonora vi da un 
bel CRASH! se vi sfracellate al suolo. 

Per la gestione della tastiera si legge il 
codice ASCII del tasto appena premuto 
all’indirizzo 23560 delle variabili di siste¬ 
ma. Viene in breve formato il numero di 
linea a cui salta GOSUB della riga 10. 
Questo è un metodo abbastanza veloce, 
ma non viene fatto alcun controllo sull’e¬ 
sattezza del tasto premuto: la velocità 
qui è molto più importante. 

Alle righe 420 e 430 ci sono le DATA- 
sul paesaggio montano, chepotete mo¬ 
dificare a vostro piacimento, ma fate at¬ 
tenzione a non fare delle creste troppo 
alte altrimenti la routine grafica... 


Copiando il listato 

Non cambiate per nessun motivo la nu¬ 
merazione delle linee. Se commettete 
qualche errore nel ricopiare le DATA del 
l/m, il programma si ferma mostrandovi 
la linea sbagliata. Dopo aver ben rico¬ 
piato tutto salvate con: 

SAVE “ALLUNAGGIO” LINE 800 

(List a pag. XIII) 
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Seikosha Gp 500 

□ La Seikosha GP 500 AS stampa le 
“g”, “p” e “q” sollevate rispetto al nor¬ 
male. E’ possibile risolvere l’inconve¬ 
niente ? Ho sentito di una EPROM che 
rimpiazzerebbe l’intero set di caratte¬ 
ri: dove sarebbe reperibile, e chi la 
produce ? 

(M.J. Bruno - Nocera Inf.) 

• Le lettere sono “sollevate” perchè evi¬ 
dentemente la GP500 non possiede un 
altro ago al disotto degli 8 tramite i quali 
stampa i caratteri. Una eventuale E- 
PROM che rimpiazzi il set di caratteri, 
dunque, avrà effetti solo sullo stile dei 
caratteri stessi, ma non crediamo che 
possa migliorare di molto la posizione se 
non esiste il nono ago. Inoltre, anche se 
fosse possibile la modifica, crediamo 
che non valga la spesa. 


Di tutto un po 

□ Complimenti per la rivista. Vorrei 
porvi quattro domande: (1) esistono 
hard-copy per la mia stampante 
(Smith-Zorona Fastext 80), collegata 
allo Spectrum ? (2) Vorrei che ap¬ 

profondiste argomenti quali Rs232 e 
collegamenti esterni. (3) Si possono 
caricare nei registri interni dello 
Spectrum dei dati attraverso il BA¬ 
SIC o un altro linguaggio ad alto livel¬ 
lo, senza dover ricorrere all’Assem¬ 
bler ? (4) Perchè la rivista arriva con 
poca regolarità in edicola ? 

(Davide Apollonio - Trieste) 

• (1) Non ci dici se la tua stampante è 
EPSON-compatibile, se è collegata allo 
Spectrum in modo seriale o parallelo, e 
nemmeno se è una stampante a matrice 
di punti o a margherita! Se è una stam¬ 
pante a punti, allora il programma “Ta- 
scopy” della Tasman dovrebbe andar 
ebbene, perchè consente di adattarsi al¬ 
la maggior parte dei tipi di stampanti in 
commercio. Se è a margherita la cosa è 
un po impossibile. (2) Ci siamo già oc¬ 
cupati di tali argomenti. La RS232 è sta¬ 
ta trattata nei n.6 e 7, e le comunicazioni 
con Itapac nei primi 3 numeri della rivi¬ 
sta. Prossimamente, visto che è passato 
un po di tempo ormai, riprenderemo 
parte del discorso. (3) La domanda è 
poco precisa: a che scopo caricare dei 
dati nei registri ? Il L.M. si può usare an¬ 
che da BASIC, caricando i codici in me¬ 
moria con delle POKE ed eseguendoli 
con un RANDOMIZE USR, ma i codici 
devono essere per forza parte di un pro¬ 
gramma Assembler, la cui conoscenza 
è abbastanza indispensabile se si vuole 


programmarci.. (4) Perchè problemi di 
stampa e di distribuzione lo impedisco¬ 
no. Questo è un problema anche per noi 
della redazione. Ci scusiamo ancora, e 
faremo il possibile per migliorare le co¬ 
se: abbiate solo un po di pazienza. 

Data Base presto in radio 

□ Avendo un Spectrum collegato ad 
un Opus Discovery, e presentando 
presso una radio locale un program¬ 
ma di musica a richiesta, avrei biso¬ 
gno di un data-base per contenere i 
titoli dei brani e consentire tutte le o- 
perazioni di editing e di ricerca degli 
stessi. Spero vivamente che abbiate 
una soluzione software per me, senza 
rimandare alla fantasia degli altri let¬ 
tori. Poi, è vero che lo Spectrum è in 
declino ? E quale computer ne ripete¬ 
rà il successo ? 

(Giuseppe Santacroce - Pescara) 

• Una soluzione software (cioè un pro¬ 
gramma) scritto ad hoc sarebbe per noi 
una grossa perdita di tempo, e inoltre 
sarebbe destinato a ben poche persone 
tra i nostri lettori. Visto che di tempo ne 
abbiamo poco e che dobbiamo soddi¬ 
sfare più lettori possibile, ripetiamo an¬ 
cora con rammarico che non possiamo 
accettare di fare programmi “su com¬ 
missione”, se non sono di largo interes¬ 
se. Nel tuo caso un semplice data base 
(molti negozi ne sono forniti) da adattare 
alle necessità della radio andrebbe be¬ 
nissimo: informati con calma nella tua 
zona. AL limite potresti provvisoriamen¬ 
te usare un word processor tipo 
Tasword, con i comandi BASIC di salva¬ 
taggio e caricamento opportunamente 
modificati per il Discovery. Organizza o- 
gni linea come se fosse un singolo re¬ 
cord, separando i vari campi con degli 
spazi e abbreviando dove possibile: le 
ricerche sarebbero possibili con la ricer¬ 
ca di pattern di cui ogni WP è dotato, 
mentre inserimenti e cancellazioni sa¬ 
rebbero manuali. Come soluzione prov¬ 
visoria va benissimo, credici. Lo Spec¬ 
trum non è affatto in declino, e il compu¬ 
ter che ne ripeterà il successo è il nuo¬ 
vissimo Spectrum 128+3, con floppy 
incorporato. 

Problemi al “cambio”. E’ un 
diesel? 

□ Ho digitato il disassemblatore 
“DOT Monitor” apparso sul n.19 della 
rivista, ma al controllo della linea 
6077 il programma si ferma con il 
messaggio di errore “Subscript 
Wrong 160:1”. Ho controllato la linea 


160 e il programma, ma non ho visto 
imprecisioni. Poi, come trasferire su 
Microdrive i giochi della “firebird” ? 

(Ivano Dal Farra - Belluno) 

• Sicuramente non è ia linea 160 la re¬ 
sponsabile dell’errore, ma la linea di co¬ 
dice macchina in esame. Con quel tipo 
di errore ci dovrebbe essere un carattere 
in più o in meno nella linea indiziata del 
programma che hai copiato: prova a vi¬ 
sualizzare anche la stringa durante il 
controllo, con “175 PRINT a$” ad 
esempio. 


Cosa bolle in pentola 

□ Tempo fa avevate preannunciato di 
avere in cantiere il progetto di un ali¬ 
mentatore tampone per il QL; forse 
l’idea è stata abbandonata ? E perchè 
non pubblicare un programma che 
faccia l’auto check-up al QL ? 

(Rolando Papucci - Collesalvetti) 

• Sì abbiamo abbandonato l’idea per¬ 
chè abbiamo notato che sarebbe stato 
spreco di spazio (che già non basta mai) 
pubblicare un progetto abbastanza faci¬ 
le da reperire in negozi specializzati in e- 
lettronica e simili. Il programma di 
check-up è per sua natura molto com¬ 
plesso, e richiede intime conoscenze 
della macchina e soprattutto delle sue 
varie versioni. Tali conoscenze non so¬ 
no certo alla portata del pubblico, nean¬ 
che dopo il “Technical manual”. Qual¬ 
che programmino di check è stato rea¬ 
lizzato da riparatori, ma sempre parziale. 
Comunque l’argomento è molto interes¬ 
sante, e invitiamo tutti a collaborare in 
proposito. 


Chi cerca trova 

□ Desidero informazioni sulla rivista 
“Sinclair Computer”, vostra antena¬ 
ta. Essendo interessato alle vostre 
pubblicazioni vorrei sapere da che 
numero di tale rivista sono iniziate le 
pubblicazioni di programmi per il 
QL. 

(Franco Mazzon - Torino) 

• Sinclair Computer ha pubblicato 19 
numeri, tra il febbraio 1984 e il dicembre 
1985. Si occupava di tutto il mondo Sin¬ 
clair, dapprima con ZX81 e Spectrum, 
poi con Spectrum e QL. E’ stata poi in¬ 
corporata in Personal Computer a parti¬ 
re dal gennaio 1986. Il primo numero in 
cui ci si è occupati del QL è stato I’8, nel 
novembre 1984. Abbiamo passato la 
tua richiesta all’ufficio arretrati. 




































































COMUNICATO Al LETTORI 


La redazione annuncia le novità che 
hanno da poco preso piede: 

• dopo il trasloco da Milano al comu¬ 
ne limitrofo di Opera, il nostro nuovo 
indirizzo è Via Mosè 18 - 20090 OPE¬ 
RA (MI). Il numero di telefono è 
02/5244125 oppure 02/5242743; 

• il servizio “MAILBOX IN DIRETTA”, 
sempre svolto da F.Berno (per lo 
Spectrum) e da L.Lentati (per il QL), 


è spostato da mercoledì a GIOVEDÌ’, 
tra le 16.30 alle 18.30. Se telefonate e 
non trovate i suddetti redattori, ripro¬ 
vate dopo ma lasciate sempre nome e 
recapito telefonico, specialmente se 
siete già collaboratori. 

• ribadiamo ancora il formato che de¬ 
vono avere i vostri file di testo che ac¬ 
cludete come commento ai program¬ 
mi: files ASCII non giustificati (senza 
l’allineamento al mergine destro). Di¬ 
versamente, abbiamo bisogno di 
tempo per sistemarli a dovere. 


® I “Compatibili QL” 

Eh sì, anche il QL conosce il fenome¬ 
no della produzione di computers con 
esso compatibili. A dire il vero ci sono 
molte differenze con il fenomeno con il 
fenomeno dei cloni IBM. Per prima cosa 
infatti il “progenitore” dei nostri cloni, il 
QL appunto, non è più in produzione, al 
contrario dei vari IBM XT, AT ecc. In se¬ 
condo luogo la produzione dei compati¬ 
bili QL ha avuto inizio non tanto per far 
concorrenza a qualcuno ma per concre¬ 
tizzare quelli che erano i progetti della 
ex-Sinclair, ossia quelli di produrre (pri¬ 
ma o poi) un successore della loro ulti¬ 
ma creatura. 

Il QL2 avrebbe senz’altro abbando¬ 
nato i microdrive in favore di un ben più 
affidabile disk drive, ed inoltre non a- 
vrebbe più avuto dimensioni ridotte al¬ 
l’essenziale ma sarebbe stato simile. 

sì, ad un IBM compatibile. 

Così, a soli due mesi dal fallimento 
della Sinclair ben due ditte avevano già 
prodotto il sostituto. La Sandy inglese 
costruì il Q-XT 640, il quale altro non era 
che un package costituito da pezzi 
smontati da montare a cura dell’acqui¬ 
rente e che permetteva di trasformare il 
QL (il compratore doveva già averne u- 
no) in una macchina del tutto uguale co¬ 
me prestazioni ma sistemata in un diver¬ 
so contenitore, con tastiera separata 
ecc. 

La Sandy decise poi di offrire anche 
dei Q-XT già montati e completi di tutto, 
ma questo presupponeva l’avere dei 
vecchi QL da smontare poiché non era 
possibile produrne di nuovi per ovvi prò* 
blemi di copyright. 

In questi primi mesi del 1988 la CST 
dovrebbe infine riuscire a realizzare il 
primo vero clone del QL. Finora i vari 
Thor 1,20 e 21 avevano al loro interno la 
stessa piastra base del QL, mentre il 
nuovo THOR XVI è stato riprogettato da 
capo a piedi. Il suo più grosso pregio è 
forse quello di essere molto più espan¬ 
dibile del vecchio QL, oltre ad essere 
come minimo due volte più veloce. 


La ram dovrebbe ad esempio poter 
salire a più di 6 megabytes partendo da 
512K standard. La sezione video bene¬ 
ficierà inoltre di 16 colori in luogo dei 4 o 
8 finora disponibili. Il processore sarà il 
68000 con bus a 16 bit, lo stesso degli 
Amiga ed ST. . 

Questo vuol dire che in teoria tutto il 
software di un ST potrebbe girare (mo¬ 
dificandolo più o meno, ovviamente) sul 
Thor XVI. Tutte queste notizie vanno pre¬ 
se con le pinze poiché attualmente (pri¬ 
mi di aprile 1988) i primi computer han¬ 
no appena lasciato le linee di pro¬ 
duzione. 

Pronto da alcuni mesi è invece il QL 

SYSTEM/2 della SPEM. La Spem è 
un’azienda torinese molto attiva nel mer¬ 
cato del QL, a livello europeo e anche 
mondiale, ed ha realizzato un interes¬ 
sante “combinato” simile al Q-XT 640 
che permette all’utente di costruirsi un 
sistema ordinato e di aspetto professio¬ 
nale senza perdere gli accessori che 
già possiede. 

Il Systems/2 è modulare, ossia l’ac¬ 
quirente acquista solo i pezzi che vuole, 
senza perdere la possibilità di ulteriori 
aggiunte. Il risultato finale sarà il vostro 
vecchio QL, drive, alimentatore, espan¬ 
sioni (con 4 slot di espansione interni 
contro l’unico del QL) e molte altre inte¬ 
ressanti aggiunte, tutte sistemate in un 

contenitore d’alluminio. 

I microdrive (tutti e due) saranno an¬ 
cora disponibili e ci sarà una nuova ed 
interessante tastiera esterna. Essa è di¬ 
sponibile anche separatamente e pre¬ 
senta il grosso vantaggio di avere i tasti 
disposti come sul buon vecchio QL. Si 
tratta della stessa tastiera del Futura. In¬ 
fatti la Spem ha acquistato tutto quello 
che c’era di pronto e funzionante del Fu¬ 
tura, la tastiera appunto. Da notare la 
possibilità di avere ancora tutti e due i 
microdrive, al contrario del Thor XVI che 
non li prevede e del Q-XT e Thor 1,20,21 
che permettono di installarne solo uno. 

I prezzi di tutti questi “compatibili” non 
sono purtroppo allineati a quelli della 


concorrenza (ST, Amiga, IBM ecc.). 
Questo è però comprensibile dal mo¬ 
mento che le ditte in questione non han¬ 
no le capacità finanziarie di produrre 
quei grossi quantitativi di pezzi che per¬ 
mettono l’abbattimento dei costi e quindi 
un prezzo finale più basso. 

Fa eccezione il System/2 con la sua 
concezione “modulare”, che permette 
di espandere il vostro QL in una sola vol¬ 
ta oppure in più fasi successive, ridu¬ 
cendo così l’impatto con il portafoglio. 



La ditta inglese CST decise invece di 
realizzare qualcosa di diverso costruen¬ 
do un computer in carne e chip: il THOR 
1. Il tutto aveva l’aspetto di un piccolo 
clone IBM ed integrava in un ordinato 
contenitore la piastra principale del QL, 
uno o due disk drive, un eventuale hard 
disk, un nuovo alimentatore, e aveva u- 
na tastiera separata con i tasti sistemati 
però non come sul vecchio QL, ma co¬ 
me sugli IBM XT. La ram era di 640K del 
tipo veloce (CST RAM Plus). Questo 
computer, che è tuttora in vendita, è fi¬ 
nora l’unico tentativo che ha avuto una 
soddisfacente riuscita. 

Anche la CST aveva e ha tuttora il pro¬ 
blema di reperire dei QL da cui ricavare 
il cuore del THOR, poiché anch’essa 
non è autorizzata a costruirne di nuovi. Il 
problema è però relativo poiché la CST 
non ambisce a vendere migliaia di com¬ 
puter ed inoltre esistono ancora più di 
10000 QL invenduti in giro per il mondo, 
oltre aH’immancabile gran numero di 
macchine usate. 

Sempre nel 1986 la Sandy inglese an¬ 
nunciò il famoso “Futura”. 

Troppo bello per essere vero; alcuni 
annunci parlavano persino di compati¬ 
bilità Amiga! Sarebbe bastata la compa¬ 
tibilità con il QL ma, come abbiamo visto 
sopra, Alan Sugar e altri problemi impe¬ 
dirono la realizzazione del computer. 

Nell’estate del 1987 la CST riuscì in¬ 
vece a realizzare un secondo computer 
QL. compatibile: il THOR 20/21, basato 
sul processore Motorola 68020 ed e- 
ventuale coprocessore matematico 
68881. La scheda base era ancora 
quella del QL e perciò l’aumento di velo¬ 
cità non è stato il massimo ottenibile dal 
68020. Pare poi che la compatibilità del 
Thor 20 con i programmi del QL non 
sia totale. 








































SUPER CAT 

■ 

1 REM Progrannua SUPERCÀT per 
RAM-DI SC 


2 CLEAR 49151: LET p$=”13467” 
5 DEE FN p(x)=PEEK x+ 256*PEE 

K (x+1) 

8 GO TO 100 

10 REM Subroutine PAGE IN 
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12 LET'newbankra=16 + VAL (pS (p+1 


) ) 


r? 

/ 


14 POKE 23388,newbankm: OUT 32 
(55, n e wbankra 
16 RETURN 

REM Subroutine lettura cata 


° 0 


logo • 

32 LET nS=”” 

34 FOR 1=0 TO 9: • LET nS=n$tCHR 
$ <PEEK <eti)): NEXT i 

' 36 LET start = FN p('c+10): LET p 

=PEEK (et12) 

38 RETURN 

1 00 REM Rout ine pri no i pa 1 e 
110 D1 M t $ (4,2 > : LET tS <2 ) =” MN” 

: LET tS<3 )= ”MS”: LET t$(4)=”BY” 
120 INPUT "STAMPA ANCHE SU CART 
A? (S/N) ? ;rS: LET r=CODE r$: LE 
T r$=CHR$ <r-32* 

(r>96)) 

130 IF r$<>”S” AND r$<>”N” THEN 
GO TO 120 


140 LET c=60396: LET r=2t(r$=”S 

”): LET BANKM=PEEK 23388: LET en 
d.=FN p (23427): 

CLS • 

150 FOR k=2 TO r: PRINT #k;”CAT 
ALOGO DEL RAM DISC” ,,,M : NEXT k 
160 REM Lettura voce catalogo 

170 LET p=4 GO SUB 10: GO SUB 

30 -, . ; ■; • R ; •• 

180 GO SUB 10 


190 REM Lettura dati del file 
200 LET t=PEEK start tl 
.210 LET lung =FN p(starttl): LE 
T niinea=FN pCstartt7): IF nline 
a>9999 THEN LET 
■ niinea =0 

215 LET t$ <1 ) =”PB n ': LET 1=FN p( 
start+5): IF lungOl AND t = l THE 
N LET t$(l)=”PV” 

220 IF t=4 THEN LET indin=FN'p< 
startt3) : 

230 IF t=2 THEN LET m$=CHR$ (PE 
EK (startt5)-64 )t” () ” 

240 IF t=3 THEN LET mS=CHRS (P 
EEK (startt5)-128) +"$()” 

250 REM Stampa dati del file 
260 FOR k=2 TO r: PRINT #k; nS; 

” ”;t$(t);” 

• , ’ * • 

* \ < 

270 IF t=l THEN PRINT #k;”LINE 

;nlinea;” 1=”:lung: GO TO 300 

280 IF t=2 OR t=3 THEN PRINT #k 

;”DATA ”;m$;”. 1=” ; lung 

290 IF t=4' THEN PRINT #k; M CODE 

# • 


”; indin; M ”; lung 
300 NEXT k 

310 LET c=c-20: IF c=end THEN G 
O TO 2000 • 

320 GO TO 170 ' • 

. 900 REM DEMO 
1000 DIM a <500> . 

1010 FOR i = 1 TO 500: LET a(i)= 
i: NEXT i 

1020 SAVE !"vector” DATA a() 

1030 LIST 1000 

1040 SAVE ! ” schermo”SCREENS 

1050 LIST 1030: SAVE ! ”screen”SC 
REENS 

1060 SAVE !"program” LINE 1000 
1070 SAVE ! ** udg” CODE 65368,168 
1080 CLEAR 49151: SAVE ! M basic M 
1090 SAVE ! ” rom0”CODE 0,16384 
1100 DIM b$ (200,3) : FOR' i = l TO 
200: LET b$ <i)=STR$ i: NEXT i 
1110 SAVE !”stringhe” DATA b$() 
1120 RUN 

2000 POKE 23388,bankm: OUT 32765 
,bankm • \ 

2010 PRINT : PRINT (FN p<23429)t 
(65536 AND (PEEK 23431=1 )>>;”. by 
te liberi” 

» • • 

* , • 

SCRITTURA 

PROPORZIONALE 

* 

1 REM - PRINT PROPORZIONALE - 

di 

Vitali Timoteo 1933 

2 REM Caricatore 1/m HEX 
10 CLEAR 40136-1 

20 LET in=4013ó 
30 LET ps=-5 
40 LET d=0 

50 READ ai> ^ LET ps = ps + 5 

60 FOR a=l TO LEN a$ STEP 2 

70 LET b=CODE a$(a):LET c=CODE 
a$(a+1) 

30 LET b=b-43-7*(b>64> : LET c=c 
-48-7-ìf ( c >64 ) 

m 

90 LET bt=b*16t c :LET d=d+bt 

100 POKE in,bt:LET i n=inti:NEXT 
a 

110 READ n:iF dOr« THEN PRINT " 
Errore in linea "Jps+1000 

120 GO TO 40 

♦ 

1000 DATA "C3D19C3802000000 11 ? 618 


VI/34 


I 


10!ó>5 DA ! A " 3C21000022CB9CDD " , 707 
1010 DATA ”21A19DDD7E00DD23" l 954 

1015 DATA "B7C8FE0DCA3B9DFE",140 
2 

1020 DA i A 16CA919DCDF19C18 " 115 
2 • * 

1025 DATA "EA2ACF9C5F1600CB",959 

1030 DATA "23CB12CB23CB12CB",918 

1035 DATA "23CB1219EBED4BCB",103 
1 

1040 DATA "9C7SFE18D0E613C6”,12i 

4 • - : . I | • 

1045 DATA "4067783787878737",962 
10^0 DA ! A "41CB38CB3SCB3880",970 
1055 DATA "6F3E07911717E61C",629 

isc>a0 DATA 11 32339D0608D51A13" , 530 

106b DATA !, 0E001818CB1FCB19 " , 524 

1070 DATA 11 CB1FCB19CB1FCB19" ] 924 

1075 DATA "CB1FCB19CB1FCB19"*924 

1030 DATA "CB1FCB19CB1FCB19"[924 

1035 DATA "CB1FCB19B677237E",924 

1090 DATA "B1772B2410D0E106",830 

1095 DATA "03AFB62310FCA7C2" 102 
9 

1à00 DA 3 A M 6F9D0604C3779D06" ? 755 
1105 DATA ”081FDA779D10FA3A",857 
1110 DATA "CB9C3032CB9CD0AF" 127 

1120 DATA "32CB9C3ACC9C3C32 M ,93? 
1125 DATA "CC9CC9CD7F9DC3DB" 146 

4 

1130 DATA "9CDD6600DD6E01DD" 103 

n ^ 

11 0-1 DATA "23DD2322CB9CC3DB" , 109 


1140 DATA " 0000000000000000 ». ' 0 



10 REM PRINT PROPORZIONALE 


ESEMPIO 

30 LET a=PEEK 40136 

40 IF a< >195 THEN PRINT "Non e 

presente la routine l/m !": STO 

50 PAPER 0 :INK 7 :BORDER 0 :CLS 
60 LET addr =41000 

70 POKE 40153 ,addr- 25 ó*INT (ad 
dr/ 256 > i POKE 40154 ,INT (addr /256 

30 RESTORE 
90 LET y =1 
100 FOR i=l TO 7 
105 POKE 40147 .y —1 
110 READ a$ 1 

120 FOR x=l TO LEN a$ 


130 POKE addr,CODE a$(x) 

132 LET addr=addrti 
140 NEXT x 

150 RAMDOMIZE USR 40136 
160 PRINT AT y, 0 ;a$ 

170 LET y=y + 3 •//. .; Syu 

130 LET add r= 41000 

,190 FOR n=àddr TO addr+ 50 :poKE 
ri, 0 : NEXT n 

200 NEXT i 

210 DATA 51 Questa e’ una riga di 

prova" 

* 

231 DATA "abedetghjkilmnopqrstu 
vwxyz " 

235 DATA "ABCDEFGHJKILMNOPQRSTU 
VWXYZ" 

240 DATA " 1234567390 !@#$%&’()_< 
> A - + =:L?/*(C )3 C^!\{}" 

2_<0 DATA "Notare effe entrano pi 

u csr st tGr* i p&r* r* i ^ 3 . * 11 


SOUND CHIP 


REM *******************^ 

2 REM * MUSIC 123 INTERRUPT * 

3 REM * (C) Andrea Gallo * 

5 REM * Spec 123 /+ 2/+3 # 

6 REM *******^************^ 

7 REM 

3 REM List 1 caricatore 1 /rn 
9 REM 

10 CLEAR 47370 

20 LET inizio= 4787 i 
30 FOR 1=0 TO 24 
40 LET d =0 

50 READ a$ 

60 FOR a=l TO LEN a$ STEP 2 

70 LET b=CODE a$(a):LET c=CODE 
a$(a+l) 

80 LET b=b- 48 - 7 *(b> 64 >:LET c=c 
“ 43 - 7 -Jf ( c >64 ) 


niziotl:NEXT a 

110 READ n:iF d<>n THEN PRINT 1 
Errore in linea "Jlti 000 ‘ 

Ilo IF d=n THEN PRINT 1 + 1000 :" 

il » * 

? 

120 NEXT 1 

130 CLS :PRINT "Registro il l/a 

■ •."I SAVE "ml 28 i.bin"CODE 4 7871 , 
571 




VII/35 













135 FRINÌ 
basic. . » " : SA VE 


" e qu est 3 :ar i ca. t or e 


i» -v * O «i 

’ r X il O I 


1 y, M 

3 i vj r 


< >1 


0 STOP "00 T 0 140 


' 300 DATA " 7 9 B B F v. E B A E B 4 7 E D 5 E C D 4 
« 

0BBFBC9F3ED5ÓFB0603C578C6" , 3Ó87 
1001 DATA 1 071600CDA0BCC110F4C93 


A5C5SE6P3F60001FD7FED7921",2973 

1002 DATA "0000110000010000EDB03 
A5C5E01FD7FED79C921ACBC0Ó",2011 

1003 DATA "0ÉC53E0E9056CDA0BC23C 
1 1.0F421 2 3BB1129BD010Ó00ED " , 230Ó 

1004 DATA "B02ÌBAEC11C0BC010600E 
DB 03E0432iSBD2101002219BD",2011 
1C03 DATA " 221BBB221DBDC9F5C5D5E 
33A13BD3CFE053S01AF321SBD",2Ó72 

1006 DATA "4F0Ó0021C0BC09094E234 
6G5E1CDA0BBE1D1C1F1C33800",2792 

1007 DATA "E9C921CAECE5CDC6EBCDE 
4BBCDF4BBCB01BCCD37BBE111 ", 4015 

1008 DATA " F4BCEB180D2 1D3BC le 


1011 DATA “BDB0C33ABBED4B1FBD0B7 


1E6BC18DF11F4BC0Ó04C54E23",2360 

1009 DATA :ì 4623E5C5E14E2346EB5E2 
“5ó23EB~i2370E1C110E3C906",2792 

1010 DATA "067E23E5EB5E23562312E 
BEI10F3C93A5C5BE6F8473A39",2724 

33 

9B020232A2FBD4E234623222F",2294 

1012 DATA "BD7SE6F00F0F0F0F16005 
F.2 103EB19 195E2356D5E1CDA0" , 2254 

1013 DATA 11 BBA728DCED4B31BDED431 
FBDC9C50i0000CD3FBCC13E00",2793 

1014 DATA "51C5CDA0BCC173E60F573 
E01 CD.A0BC3EFFC973E60F47ED " , 3233 

1015 DATA "4331EDAFC93E0S51CDA0B 
CAFC92A21BD222FBDAFC9CD40",2940 

1016 DATA "BB18F321C0BC01A1BB712 
3700E00CB5DB 0 

DATA "11A1BB0Ó037323722310F 

* 

ACB11BB3EFFC93E0651CDA0BC",2563 . 
DATA "3ErFC901FDFFEB797A01F 


JEFFC921C0BC " ,2907 


* nt 4 —: 

i x? X / 


i rx 1 o 

X TJ X 


DBFED79C90000000000000000",2511 

1019 DATA "000000000000A2BBBCBBC 
13E000000000000A1BEA1BB19",1825 

1020 DATA "BD29ED33BD23BDC0BC000 

* 

103001BBD2BBD35BD25BDC2BC",2570 

1021 DATA "020309001DBD2DBD37BD2 
TEDC4BC04050A001FBD2FBD31",1346 
1.022 DATA "BD21BD73BC74EC40BC4CB 
C5EBC39BD37BC53BC5DBC65BC",3146 
1023 DATA "6DBC72BC83BC97EC00000 


000.0000000000000000000000" , 1257 
1024 DATA "000000000000000000000 
0000000000000000000000000",0000 



1 REM ******************** 

2 REM * M128I - Gestione * 

3 REM * (C) Andrea Gallo * 

4 REM * Spec 123/+2/+3 * 

5 REM -K-*****^^^*****^^** 

6 REM . 

7 REM Listato 2 

8 REM 

9 CLEAR 29999:FRI NT INVÈRSE 
JAI 11,3?"Inizializzazione in 


1 



rso 

10 DIM v(7,14):DIM t(9) 

20 LET o=i:LEI d=l:LET a$="" 

30 FOR 1=0 TO 8:READ b$:LET a$ 
=a^+b$:NEXT 1 


60 FOR a=l TO LEN a$ 3TEP 4 
70 LET v(o,d)=16*(CODE a$(a)-4 
3-7*(CODE a$(a> >64)) + (CODE a$(a + 
1)-43-7*(CODE a$(a+ì)>64))>25ó*< 
16*(CODE a$(a+2)-43-7*(CODE a$(a 
+2)>64))+(CODE a$(a+3)-48-7*(COD 
E a$(a+3)>64))) 

80 LET d = d +1 :IF d = 15 THEN LET 
d=1 :LET o=o+l 
100 NEXT a 

1000 DATA "3D0D7E0CCB0B210BS20A3 
20AEB095C09D5035708DF0776" 

1001 DATA "07ÓE07030703079E0Ó3F0 
6E5059C0540054005F504AE04" 

1002 DATA "6A042B04EF03B70331033 
1034 F031F03F202C802A002A0" 

1003 DATA "027A02570235021502F70 
1DB01C001C001A7013F01790!" 

1004 DATA "6401500150013D012B011 

A010 A01FB00ED00E000E00PJD3 " 

• * • 

1005 DATA "00C700BC00B200A300A80 
09E0095008D0085007D007600" 

1006. DATA "70007000Ó90063005E005 
900540054004F004A004Ó0042" 

1007 DATA "003E003B0033003S00340 
031002F002C002A002A002700" 

1003 DATA "2500230021001F001D001 
C00" 

1100 REM 

1101 REM Mair. loop 

1102 REM 

1105 FOR t=l TO 3 1 

1110 INPUT "Charme 1 "; <t>;’"Data 

•file n am e (ENTER i-f of f ) : " ’ LINE 
■f^:lF -f$<>"" THEN LET t$=STR$ t 
:GC SUB 1200 
1120 NEXT t 

4 

1125 STOP 

1200 CLS :LET St =30000: load -fsda 
TA d$():LET a$=d$(l). 
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1201 INPUT ,, T=" 5nn:lF rm<60 OR r« 
n>240 THEN GO TO 1201 

1202 RESTORE 1203:FOR a=l TO 9:R 
EAD b: LET t (a) = nn/ 120*b + ( (r.n/120 
*b)=0):NEXT a 

1203 DATA 1,1,2,3,4,6,3,12,16 
1210 GO SUB 5000: IF LEN -f$> = 10 T 
HEN LET -f$=-f$( TO 9) 

1212 CLS : INPUT "Quale end-marke 

# 

r:"’"0-Ricornincia questo canale" 

’ " 1 -R i coni i nc i ano tutti " , " 2 -S i fe 

rma questo canale"’"3-Si fermano 

tutti "’" = >" 5 nn: IF nn<0 OR r«r»>3 
THEN GO TO 1212 

1214 PGKE st,0:POKE st+l,ló*(3+I 
NT nn):LET st=st+2 

1215 FRINÌ "FILE LENGHT:";st-300 
00:SAVE f$+t$CODE 30000,st-30000 

RETURN 

5000 LET p=l:LET oct=0:LET b=0 
5005 IF p>LEN a$ THEN RETURN 

5010 BQRDER RND*7IIF a$(p)= 11 " T 

HEN LET p=p+l:GO TO 5005 

5011 IF a$(p)="V" THEN GO TO 600 
0 

5012 IF a$(p)="U" THEN GO TO 650 

0 • 

5015 IF a$(p)="N" THEN LET p=p+l 
:GG TO 5100 

5013 IF a$(p>="0" THEN GO TO 700 

0 • • V . ' ' ' ' ; • •• •. 

5019 IF a$(p)="R" THEN GO TO 750 
0 

5020 IF a$(p)>="0" AND a$(p)<="9 
" THEN GO TO 5100 

% 

5025 IF a$(p>="&" THEN LET p=p+l 
:LET nn=0:GO TO 5055 

5026 IF a$(p>="$" THEN LET b=-l: 
LET p=p+l:GO TO 5005 

5027 IF. a$ <p) = "#" THEN LET b=l:L 
ET p=p + l".GO TO 5005 

•5030 LET o=oct . . 

5040 LET n$=a$(p):LET p=p+l 

5042 IF n$>="A" AND n$<="G" THEN 
LET n$=CHR$ (32+CODE n$):LET o= 

oc t +1 

5044 LET s$= " ede-f gab " : FOR a=l TO 
7:IF nSK >s$(a) . THEN NEXT a 

5045 LET d=a*2+b 

• 

5043 IF d=0 THEN LET o=o-i:LET d 

= s « 

5049 IF d=3 THEN LET o=o+l:LET d 
= 1 . 

5050 IF o< 2 THEN LET o=2 ".LET d = i 
5052 IF o>8 THEN LET o=3:LET d = 7 


5054 LET rm=v(o-1,d>:LET b=0 

5055 POKE st,nn-256*INT (nn/256) 

:POKE st+1,INT (nn/256):LET st=s 

t+2:GO TO 5005 


5100 GO 

SUB 3000:LET 

n n — ^0 9 ó 4* t 

( n 

n):GO TO 

5055 

» 

• 


6000 LET 

p=p+i:go SUB 

3000;LET 

. n 

n=rm + 819 

2:G0 TO 5055 

, <* 


6500 LET 

P=p+l:LET nn 

=32.03: GO 

TO 

5055 

• *, ^ 



7000 LET 

p=p+i:go sub 

3000:LET 

o 

ct=nn:GO 

TO 5005 


* 

7500 LET 

p=p+i:go sub 

3000:LET 

n 

n=2S672+nn:GO TO. 5055 



3000 LET 

p2=p 




3001 IF p >LEN a^ THEN GO TO 3003 

3002 IF a$(p)>="0" AND a$(p)<="9 
" THEN LET p=p +1 :GO TO 3001 

3003 LET nn=VAL a$(p2 TO p-l):RE 
TURN 


1 REM ********************* 

2 REM * MUSICI23INTERRUPT * 

3 REM * (C) Andrea Gallo * 

4 REM * Maggio 1933 * 

5 REM * Spec 123/+2/+3 * 

6 REM ********************* 

7 REM 

3 REM Listato 3 - SETUP DEMO 
9 CLEAR 31999:LOAD "rnl23i.bin 
"CODE :LOAD "chi.bin"CODE 64000: 
LOAD "ch2.bin "CODE 64200:LOAD "c 
h3.bin "CODE 64400:REM I dati son 
o stati disposti nella pagina ra 

m 0, cosi’ la rarndisk rimane uti 
1izzabile 

10 FOR a=0 TO 13:READ b:POKE 4 
3300+a,b:NEXT a:DATA 0,0,0,0,0,0 
,0,BIN 11111000, 15, 12,12,0,0,0:R 
EM Dati per i registri in fase d 
i setup 

11 POKE 43343,0". POKE 43357,0:P 
GKE 48371,0:REM I tre buffers de 
i dati sono tutti nella pagina r 

am 0 ’ ; . fj 

12 POKE 48419,64000-256*1NT (6 

4000/256):POKE 43420,INT (64000/ 
256):POKE 43421,64200-256*1NT (6 
4-200/256) : POKE 43422, INT (64200/ 
256):POKE 43423,64400-256*INT (6 
4400/256>:POKE 43424,INT (64400/ 
256) : REM Base address’ dei tr e bu 
ffer s : ! 

13 POKE 43314,4$034-256*INT (4 




IX/37 




























8034/25Ó):POKE 48315,INT (48034/ 
256):REM Canale 1 ON 

14 POKE 48316,43060-256*INT (4 
8060/256):POKE 48317,1NT (43060/ 
256):REM Canale 2 0M 

15 POKE 43313,43065-256*1NT (4 
3065/256):POKE 48319,INT (48065/ 
25ó):REM Canale 3 ON 

16 POKE 48326,43033-256-KTNT (4 
8033/256):POKE 43327,INT (48033/ 
256):REM Chiamata definibile 1 0 
FF 

17 POKE 48328,43033-256*1NT (4 
8033/256) : POKE 4.3329, INT (48033/ 
256):REM Chiamata definibile 2 0 


13 REM 

19 REM Iniziaiizzazione termin 
a t a 

20 REM 

30 RANDOMIZE USR 47873:REM ATT 
IVA - 

40 CLS : PRIMI "Fa qualcosa meri 
tre suona"’"sotto interrupt...": 
FOR a=50 TO 5 STEP -5:CIRCLE 127 
,87,a:NEXT a 

50 LIST :CLS : INPUT FLASH 1 ; "P 
er finire premi ’ENTER’ "; LINE a$ 
100 RANDOMIZE USR 47335 


10 

20 

30 

40 

50 

60 

62 

65 

66 


; H128I 

; (C) Andrea Gallo 
; Maggio 1988 


BANKH 

IMTVEC 


ORG 47871 
E8U 23388 
DEFU INTHND 


a 

i 


; Indicizza gli interrupts in sodo 2 a 47871 
; e quindi alla routine INTHND. 


70 

INTON 

DI 


80 


LD 

A, 186 

90 


LD 

I»A 

100 


IM 

2 

110 


CALL 

SETUP 

120 


EI 

% 

. 130 


RET 


134 

a 

» 



135 

jSeleziona 

gli interrupts in sodo 

140 

INTOFF 

DI 

4 

» * 

150 


IN 

1 

160 


EI 


164 

a 

i 


a 

165 

{Pone a 0 i 

1 volute dei 3 canali 

170 

VOLOFF 

LD 

B,3 

180 

VOL.LP 

PUSH 

BC 

190 


LD 

A, B 

200 


ADD 

A,7 

210 


LD 

D,0 

220 


CALL 

OUT 

230 


POP 

BC 

240 


DJNZ 

VOL LP 

250 


RET 



✓ 



254 

a 

! 


255 

iCopia n bytes con la RAM selezionata a C000 

260 

COPY 

LD A,(BANKH1 

270 


AND §F8 (non casbia la ROM 

280 

CPAGE 

OR 0 (Seleziona la RAM 

290 


LD BC,S7FFD 

300 


OUT (C),A 

310 

S0R6 

LD HL,0 

320 

DESI 

LD 9E,0 

330 

LENG 

LD BC } 0 

340 


LDIR 

350 

RESTOR 

LD A,(BANKH)(ripristina la RAM 

360 

REST2 

LD BC,I7FFD % 

370 

'** • 

OUT (C),A 

380 


RET i 

384 

a 

} 

• ' • * * «V | 

. » 

385 

iinvia i dati ai 14 registri del PSG 

390 

SETUP 

LD HL,TABLE . 

400 


LD B,IE ' 1 

410 

SET.LP 

PUSH BC | 

420 


LD A,RE : : | 

430 


SUB B 1 

440 


LD 0,(HL) 

450 


CALL OUT 

460 


INC HL 

470 


PCP BC 

480 

1 

DJN2 SET.LP 

484 

I 

j 

- 

485 

(Azzera i 

puntatori 4 

490 


LD HL,BASEA 

500 


LD DEjPOINTA i 

510 


LD BC,6 

520 


LDIR 

524 

a 

i 


525 

(Copia gli 

indirizzi delle routines 

526 

(relative 

ai 3 canali. 

530 

• 

LD HL,DATA 

540 


LD DE,TABLE2 

550 


LD 3C,ó .■■■?! 

560 


LDIR 

570 


LD A,4 

580 


LD (C0UNT),A 

584 

9 

1 

» ‘ vf 

585 

(Iniziaiizza i contatori dei canali 

590 


LD HL,1 . 

600 


LD (COUNTA),HL 

610 

« 

LD (COUNTB)jHL •• | 

620 


LD (C0UNTC),HL 

630 


ret n 

634 

a 

ì 


635 

(Routine di gestione degli interrupts 

640 

INTHND 

PUSH AF ■ | 

650 


PUSH BC 

660 


PUSH DE 

670 

• 

PUSH HL •> s 

680 


LD A,(C0UNT1;il contatore assute 

690 


INC A (Valori tra 0 e 4 

700 


CP 5 

710 


JR C,C0NT 

720 


XOR A 

730 

CONT 

LD (COURT],A 

740 


LD C,A (rintraccia sella | 

750 


LD B,0 (tavola l’indirizzo 

760 

f ■ 

LD HL,TABLE2(della routine 

770 


ADD HL,BC (relativa allo 

780 


ADD HL,BC Jinterrupt segnalato 

790 


LD ; C,(HL) 

800 


INC HL (l’indirizzo e’ in BC 

810 


LD B,(HL) (e lo v. a 

820 


PUSH BC (trasferisce 

830 


POP HL ;in HL. 

840 


CALL ROUT (Equivale a CALL (HL) 

850 

EXIT 

POP HL (gestita la chi agata, 































860 


POP 

DE (ripristina i valori 

870 


POP 

BC (dei registri e salta 

880 


POP 

AF (alla scansione della 

890 

. . 

JP 

56 (tastiera in ROM. 

894 

• 


. * • — 

895 

(CALL ROUT equivale a CALL (HL), istruzione 

896 

;non iipleientata sullo Z80. 

900 

ROUT 

JP 

(HL) 

911 

■ 



912 

;Un canale posto in off o i due interrupt 

913 

(a disposizione in default saltano qui. 

914 

;E’ un seiplice RET, cioè’ e’ coie se non 

915 

(avvenisse la chiaiata. . 

916 

RCUT2 

RET 

• •. 

• 

917 

• 

> 


I 

918 

(Routine col legata all'interrupt #1, quando 

919 

;e’ in stato di on. 

920 

CHI 

LD 

HL,DATAI (Tavola dei valori per 

930 

CH.ALL 

PUSH HL (la ri locazione. 

940 


CALL SET_C1 (la passa. 

950 

0 

CALL SET.C2 (2o passo. 

960 


CALL PAGERM (Seleziona la raa_page 

970 


CALL CHANN (Agisce sul PSG 

980 


CALL RESTOR (Ripristina la raa.page 

990 

• 

POP 

HL (Aggiorna le variabili 

1000 


LD 

DE,DATA4 (peraanenti sulla base 

1010 

. • 

EX 

DE,HL (di quelle teaporanee. 

1020 


JR 

SET.C3 

1024 

• 

( 



1025 

.Cose CHI 

■a per 

il canale 2.. 

1030 

CH2 

LD 

HL,DATA2 

1040 

• 

JR 

CH.ALL 

1044 

■ 

? 


• - 

1045 

'(Cose CHI 

«a per 

il canale 3. 

1050 

CH3 

LD 

HL,DATA3 

1060 

/ 

JR 

CH.ALL * 

1061 

• 

J 


• r 

1062 

(Questo entry-point copia le variabili 

1063 

(permanenti in quelle teaporanee. 

1070 

SET.Cl 

LD 

DE,DATA4 

1074 

8 

? 


• 

1075 

(Se la routine e’ 

chiaaata qui e c’e’ stato 

1076 

(un EX DE,HL allora le variabili teaporanee 

1077 

(vengono copiate 

in quelle assolute. 

1080 

SET C3 

LD 

B,4 

1090 

SCH.LP 

PUSH BC 

1100 


LD 

C,(HL) 

1110 


INC 

HL 

1120 


LD 

B,(HL) 

1130 


INC 

HL ... 

1140 

• 

PUSH HL 

1150 


PUSH 8C 

1160 


POP 

HL 

1170 


LD 

C,(HL) 

1180 


INC 

HL 

1190 


LD 

B,(HL) 

1200 


EX 

DE,HL 

1210 


LD 

E,(HL) 

1220 


INC 

HL 

1230 


LD 

D,(HL) 

1240 


INC 

HL 

1250 


EX 

DE,HL 

1260 

• 

LD 

(HL),C 

■ s '> 

1270 

% t 

INC 

HL 

1280 


LD 

(HL),B 

1290 


POP 

HL 

1300 


POP 

BC 

1310 


DJNZ SCH LP 

1320 


RET 


1324 

9 

ì 



1325 

;Riloca CHANNEL per il canale desiderato. 

1330 

SET C2 

LD 

8,6 

1340 

SCHÌ.2 

LD 

A,(HL) 


1350 

l 


INC HL 

1360 


PUSH HL 

1370 


EX DE,HL 

1380 


LD E,(HL) ' 

1390 


INC HL 

1400 


LD D,(HL) - 

1410 


INC HL 

1420 


LD (DE),A 

1430 


EX DE,HL 

1440 


POP HL 

1450 


DJNZ SCH L2 

1.460 

• 

RET " • ‘. • • 

1464 

« 

•fc 1* ' t 

1465 

(Seleziona a CB00H la raa.page specificità 

1466 

(per il canale attuale. 

1470 

PAGERM 

LD A, (BANKH) % $ 

1480 


AND 8F8 

1490 


LD B,A 

1500 


LD A,(RAMP6) 

1510 


OR B 

1520 


JP REST2 

1524 

■ 

) 

» 

1525 

(E’ la routine principale che agisce sul PSG 

1530 

CHANN 

LD BC,(COUNTR)1 Controlla se e’ 

1540 

- • 

DEC BC (terainata la nota 

1550 


LD A,C (in esecuzione. i 

1560 


OR B 

1570 


JR NZ,CH END ! 

1580 

CHAN2 

LD HL,(PGINTR1 | 

1590 


LD C,(HL) (Individua un nuovo 

1600 

• 

INC HL (colando, aggiorna i 

1610 

• . 

LD B.(HL) (il puntatore 

1620 

t 

INC HL (nel buffer del canale 1 

1630 


LD (POINTR),HL(e lo aeaorizza. 

1640 


LD A,B 

1641 

(Il valore a 16-bit che costituisce il co- 

1642 

(Bando per 

il PSG e’ cosi’ diviso*. 1 

1643 

(bits 15-12 

=co«ando esecutivo | 

1644 

(bits 11-0 

=paraaetri eventuali 

1650 


AND 8F0 (Isola il cosando , 

1660 

4 

RRCfl ( e divide A per 8 

1670 


RRCA f in aodo da avere 1 

1680 

. 

RRCA ( un nuaero tra 8 e 7 

1690 


RRCA ( individuante il i 

1700 


LD D,0 (colando. 

1710 


LD E,A (Cerca in OPTAB 

1720 


LD HL,OPTAB (l’indirizzo della 

1730 

. 

ADD KL,DE (routine relativa, | 

1740 


ADD HL,DE (lo preleva | 

1750 


LD E,(HL) (e 

1760 

« 

INC HL (chiana 

1770 


LD D,(HL) (la . 

1780 


PUSH DE (routine | 

1790 

•- ' 

POP HL (con l’equivalente i 

1800 


CALL ROUT (di CALL (HL). Se 

1810 

• 

AND A (era una routine di ' 

1820 


JR Z,CHAN2 (tipo 2 allora ripete. 

1830 


LD BC,(LEN6HT)}Aggiorna i conta- 1 

1840 

CH.END 

LD (COUNTR),BCjtori e ritorna. 

1850 


RET 

1854 

a 

1 

1 

« 

1855 

(Priaa esegue uno stacco sulla nota e | 

1356 

(poi suona 

la seguente, il cui periodo e’ | 

1857 

(in BC. 


1860 

TONER0 

PUSH BC \ 

1870 


LD BC,0 1 

1880 

• 

* 

CALL TONER , | 

1890 


POP BC • I 

1900 

TONER 

LD A,0 

1910 


LD D,C (Invia priaa 

1920 


PUSH BC (il byte basso 1 

1930 


CALL OUT (periodo e 1 

1940 


POP BC- (poi . | 






» 


% 


XI/39 






















































1950 

LD A,B 

I960 

AND 88F 

1978 

LD D,A 

1988 T0NER2 

LD A, 1 

1998 

CALL OUT 

2888 

LD A, 8 

2818 

• RET 


; quello 

5alto, eiiiinando i 
jbits 7-4, relativi 
; al nuser ò di 
; colando. 

'{Routine di tipo 1 


2814 

2815 

2816 


iBefinisce la nuova durata della nota e 


2828 LENGR 

LD 

A,B 

2838 

AND 

88 F 

2048 

LD 

8 ,A 

2858 

LD 

(LENGHT),BC 

2063 

XOR 

A (R< 

7878 

RET 



28?4 

2875 

2076 

2077 
2088 
2890 
2100 
2113 

2123 

2124 

2125 

2126 
2127 
2138 
2140 
2158 
2160 

2164 

2165 

2166 
2170 
2180 

2134 

2135 

2136 
2187 


Definisce il nuovo volane per il canale. 
Se C non e' cbspreso tra 8 e 15, allora 
utilizza le envelopes. 

QLNR LE A,8 

LD D,C 
CALL OUT 
XQR A 
REI 


iRoutine di tipo 2. 


Fa ricosinciare questo canale dall’inizia 
ponendo il puntatore all’inizio del buffer 
e suonando la prua nota. 

HL,(BASE) 

(POINTR),HL 


STRTR 


i n 
L U 

LD 

XOR 

RET 


A 


iRoutine di tipo 2. 


« 

> 


;Fa ricosincia 
? dal 1 * iriizio. 
SALIR 


a,A 
i C 


tu 
IU 


tti : tre canali 


CALL SETUP 
JR STRTR 


I 

; Fa terni nane questo canale ponendo a 8 il 
ivoluie e definendo RGUT2 cose routine col- 


2190 CENDR 

LD 

HL,TABLE2 

2280 

LD 

BC,R0UT2 

2218 

LD 

(HL1,C 

2228 

INC 

HL 

2238 

LD 

(HL),B 

2248 

LD 

C,0 

2258 

CALL VOLHR 

2260 

LS 

A,iFF 

2270 

. RET 



2273 

2274 

2275 

2276 

2277 

2278 

2279 


iRoutine di tipo 1. 


Fa teninare l’esecuzione su tutti i tre 
canali ponendo a 8 i registri 8,9 e 18 e 
sostituendo R0UT2 a CH1,CH2,CH3 disatti¬ 
vando l’azione sul PSS sotto interrupts 
senza porre gli interrupts stessi in lodo 1 


2230 

CALLR 

LD 

HL,T ABLE2 

1 2298 


LD 

DE,R0UT2 

2388 


LD 

B, 3 

1 2318 

CAJ.P 

LD 

{HL1,E 

1 2320 


INC 

HL 

I 2330 

• 

LD 

(HL),D 

1 2340 


INC 

HL 

2350 

# 

D3NZ CA LP 

1 2360 

• 

% 

CALL VCLOFF 

I 2370 


LD 

A,NFF 


2480 
2418 
2428 
2438 

2434 

2435 

2436 
2440 
2450 
2468 
2478 
2488 
2498 

2494 

2495 

2496 
2589 

2584 

2585 

2586 
2518 
2528 
2538 

2534 

2535 

2536 

2537 
2548 
2558 
2560 

2564 

2565 
2570 

• 2588 
2590 
2690 
2610 
2620 
2630 
2640 

2644 

2645 

2646 
2650 

2654 

2655 
2668 
2670 
2680 
2690 
2700 
2710 
2720 
2730 

2734 

2735 

2736 
2740 

2744 

2745 


LD D,C 
CALL CUT 
LD A,UFF 

RET 


‘{Routine di tipo 1 


; Invia il byte in D al registro dei.PSG 
{definito da A. 

OUT LD BCjfFFFD 

1C),A 
A,D 

BCjSBFFD 
10,4 




LD 

OUT 

LD 

LD 

OUT 

RET 




Contiene i dati da inviare ai 14 registri 
;del PSG in fase di SETUP. 

TABLE DEFS 14 

{Contiene gli indirizzi delle routines col- 
; legate ai tre canali sotto interrupts. 

DATA BEFU CHI 

DEFU CH2 
BEFU CH3 

Contiene la copia degli uitioi tre indiriz¬ 
zi e gli indirizzi dei 2 interrupts dispo¬ 
nibili, per default disattivati. 

TABLE2 DEFS 6 

DEFU R0UT2 
DEFU R0UT2 

* • 

I 

; Dati da 'pokare' in fase di rilocaiento. 


DATAI 


DEFU COUNTA 
DEFU POINTA 
DEFU LENGA 
DEFU BASEA 
DEFU TABLE2 
DEFB 0 
DEFB i 
DEFB 8 






{Registri di controllo 
;del tono del chi.' 
{Registro di voluie. 






} 


;Raaj>age a C880H contenente i dati relativi 

*.al canale 1. 

RAHNOA DEFB 0 

J t 

}Dati da 'pokare* in fase di rilocaiento. 


DATA2 


DEFU CCUNTB 
DEFU POINTB 
DEFU LEN6B 
DEFU BASEB 
DEFU TABLE2+2 
DEFB 2 
DEFB 3 
DEFB 9 


(Registri di controllo 
;del tono del ch2. 
{Registro di voluie. 


f 


;Rai_page a C000H contenente i dati relativi 

; al canale 2. 

RARNOB DEFB 8 

a • 

iDati da 'nokare* in fase di rilocaiento. 






(Routine di tipo 1. 


2380 

2384 

2385 

2386 
2390 


RET 


i * 

;C definisce il nuovo periodo del generato¬ 
le di ruiore. 

NOISR LD A,6 


2750 

DATA3 

DEFU 

COUNTC 

2760 


DEFU 

POINTC 

2778 


DEFU 

LENGC 

2780 


DEFU 

BASEC 

2790 


DEFU 

TABLE2+4 

2800 


DEFB 

4 T! 

2810 


DEFB 

5 ; 

2820 


DEFB 

10 ;i 

2824 

• 

> 


contenente 

2825 

;Ras_page a < 

C000H 

2826 

;al canale 3 

B 

2830 

RANNOC 

DEFB 

8 

2834 

a 

» 












■ 


XII/40 






2835 

2836 
2340 
2850 
2860 
2870 
2880 
2390 
2900 
2910 
2920 
2930 

2934 

2935 

2936 


3024 

3025 

3026 
3030 
3040 
3050 
3060 

3064 

3065 

3066 
3070' 
3080 
3090 
3100 

3104 

3105 
3110 
3120 
3130 
3140 

3144 

3145 
3150 
3160 
3170 
3180 
3190 


— « 

(Indirizzi ove *pok’are* i dati in fase di 
(rilocaiento. 

BATA4 DEFU COUNTR * 

BEFU POINTR 
BEFU LENGHT 
BEFU BASE 
DEFU CENDR+1 
DEFU CENDR+2 
DEFU TQNER+1 
DEFU T0NER2*! 

DEFU VQLNRU 
DEFU RAHPG 


Tavola contenente gli indirizzi delle 


2940 

OPTAB 

DEFU TQNER0 

2950 


DEFU LENGR 

2960 


DEFU VOLHR 

2970 


DEFU STRTR 

2980 


DEFU SALLR 

2990 


DEFU CENDR 

3088 


DEFU CALLR 

3010 


DEFU NOISR 

3020 

COUNT 

DEFB 0 


(Contatore interrupts. 


Contatori assoluto e teiporanei della 
durata delle note in deciii di secondo. 

CCUNTA DEFU 8 

CCUNTB DEFU 8 

COUNTC DEFU 0 

COUNTR DEFU 8 

Indirizzi di base teiporaneo e.assoluti 

dei 3 buffer-s. 

BASE DEFU 8 

BASEA DEFU 8 

BASEB DEFU 8 

BASEC DEFU 8 

• 

t' 

(Puntatori assoluti e teaporanea nei buffers 

POINTA BEFU 0 

POINTB DEFU 8 

POINTC BEFU 8 

POINTR DEFU 0 

* 

5 

(Lunghezze teaporanea e assolute delle note. 

LENGHT DEFU 8 

LENGA DEFU 8 

LEN6B DEFU 0 

LENGC DEFU 8 

RAHPG DEFB 0 iRaijtage teaporanea. 


ALLUNAGGIO 


1 REM 

2 REM 


r\c.r! 


-ATTERRAGG10- 
d i 

Vitali Timeteo 


19SS 


5 GG SUB 400 

10 GG SUB 100+PEEK 23560 

145 LET 5X=5x + ax.‘LET sy=sy + ay:L 
ET x=x+bx:LET y-y+sySPRINT #1;AT 

0,4; INT (5x*l0) ; " •• ; at 1,4; INT 

( sy-K-10) ; " 

146 POKE 32300,x:POKE 32301,192 
“y S GG TO USR 32308 


■« -1 —J 

f ^ 

X S 

RETURN 

1 43 

LET 

ax = q:POKE 32302,96 :RETU 

RN 



149 

LET 

ay=-q:RETURN 

1 50 

LET 

ay=0: RETURN 

{ !=• 4 

X 1 

LET 

ay=q:RETURN 

155 

RETURN 

156 

LET 

ax=-q:POKE 32302,104SRE 

TURN 



157 

LET 

ax=0:POKE 32302,SS:RETU 

RN 



356 

RETURN 

400 

CLS 

:LET q=.05:RESTORE (430 

AND 

1iv)+(420 AND NOT liv):PLOT 

0,4: 

FOR 

x=0 TO 247 STEP S: READ 


y:DRAW S,ySNEXT x : DRAW 7,-4:PGKE 
32304,0:POKE 32305,0:POKE 32302 


410 LET a$=" 

:FGR i=ó TG 15 STEP 3;PRINT AT i 
,0;(i+1 TO );a$( TO i):NÉXT i 

411 PRINT #ì;at 0,0;PAPER 7; IMK 
0;" Vx ";at 1 , 0 ;" Vy " 

412 PLQT 103,3:DRAW 10,0 

414 RANDOMIZE :LET x=32+200*RND 
SLET y=192-10*RND:LET sx=-.5*RND 
:LET bv= 0:LET ax=sy:LET ay=sy 

416 BEF FN t(a)=PEEK (a)+25ó*PE 
EK (a+1 ) +Ó5576-X-PEEK (a + 2) 

417 LET t0=FN t(23672) 

418 RETURN 

420 DATA 3,4,-1,-2,-3,-2,1,4,3, 
-1, 1, -3, -4,0,2,-2,2,3,2,4,-2,1, - 
“2( £, j j 2, 1, “1, -4 , — 3 
430 DATA 3,4,-1,-2,3,9,5,4,10,- 
9,-20,-7,-4,0,2,20,2,3,5,4,-5,-1 
, ~ , — 4, o , jz. , X0, 1, “1, “4, —3 

800 CLEAR 31999:POKE 23675,SS:P 
OKE 23676, 127:EORDER 1 : INK 7:PAP 

er 0:cls :go sub 2000 

805 RESTORE 1600SPRINT #l;"atte 
ndi un attimo" 

310 POR n=0 TO li:READ ,a:LET 
5um=0 


320 FOR i—1 TO 63 STEP 2 
325 LET cod=ló*(CCDE a$(i>-43-7 
* ( CODE a$ ( i ) >57) ) +CODE a$(i^-l)-4 
o - 7-X- ( CODE a$ ( i + 1 ) >57 ) : LET sum=5u 

t , 

rn + cod : POKE 32302-s-32-X-n + ( i - 1 ) /2, co 
d:NEXT i 


327 IF surn< >a THEN PRINT "riga 
";1600+5*n;" errata":STOP 
830 NEXT n 

340 LET al=PEEK 32442:LET a2=PE 
EK 32443:LET a3=PEEK 32444:LET a 




XIII/41 





























I 


4=PEEK 32419:LET a5=PEEK 32423:L 


350 GO SUB 2010 
870 CLS :border i:go TO 5 
1000 PRINT AT 0,05 

1030 IF (sy*sy+sx*sx)>.05 OR y>4 
0 THEN POKE 32302,112:RANDOMIZE 
USR 32308:RANDOMIZE USR 32393:PR 
INT "TI SEI SCHIANTATO!":LET pun 
t1=200-1NT y:GO TO 1050 
1034 IF (x>106 OR x<103) THEN PR 
INT "MANCATO":FOR 1=1 TO 4:F0R J 
=20 TO 12 STEP -2:BEEP -02,J:NEX 

t j:next i:plot 107,4:draw 0 , 24 : 

PRINT AT 17,25"DOVRESTI ATTERRAR 
E LI. ..." 5 AT 1,0:LET PUNTI=400-I 
NT (ABS < X- 104.5) ):GO TO 1050 
1038 BEEP .2,15:BEEP .4,5:LET t0 
=INT <<FN t(23672)-t0)/50):PRINT 
"PERFETTO ! HAI IMPIEGATO " 5 t05 
"sec.":LET punti=INT <400+2000/t 
0):GO TO 1050 

1050 PRINT "PUNTI "5 punti:GO TO 


IF 

IF 


1100 

1110 

1*20 

1200 

1210 

1220 

1600 


IF 

IF 


y<8 THEN LET y=8 
y >191 THEN LET y=191 

i ' 

sy=-sy:GO TO 24 
x<0 THEN LET x =0 
x >247 THEN LET x=247 
sx=-sx:GO TO 24 
DATA ."537FA0A0537F2A307EED5 
3D7F2A2C7E014C047CD6B8D00 
1B0047DD6F8",3654 

1605 DATA "D022307EED5B2E7EED533 
27ED5CDCC7ED1010A00230301E803C5D 
5E521C040CD",3792 

1610 DATA "B07E218048CDB07E21204 
8CD9C7E21E048CD9C7EE1D1CD267FC1C 

90E0021C47E",4049 

1615 DATA "060010FE7ED3FE230D20F 
5C900001120000E087E191706202BC B1 
610FB240D20",2292 

1620 DATA "F2C97DF61F5F0E0806205 
41A1FCB1E2310FB7DD6206F240D20EEC 

9000000E5CD",3112 

1625 DATA "E67E0E08C5CD0A7FA6200 
47923A62BC120030D20EFE1C900D555C 
B3DCB3DCB3D",3512 

1630 DATA "7C4F0F0F0FE618477CE60 


1C9243E07A4",3673 

1635 DATA "200A7DC6206F38047CC6F 
367AF4FB01A13C81FCB1910FBC9E5CDE 


D20F1E1C9E5CDE67E0E08C5CD0A7FEEF 
FA6772379EE",4366 

1650 DATA "FFA6772BC10D20EDE1C90 


II 


1655 DATA "43C024815A3C3C5A31240 
10F1F3F3F3F1F07F0F8FCFCFCF8F8301 
37C7C3C0961",3389 

1660 DATA "F060001CFFFFFFFEFC0C0 
000C0F37000030300000000000000000 
00000000000",2205 

2000 PRINT " TASTIERA"*’"1 sp 
inta debole" 7 "2 spinta media" * " 
3 spinta -forte" * "8 inclina a s 
inistra"’"9 riassetto"’"0 incl 
ina a destra" 

2005 RETURN 

2010 PAUSE 20:INPUT "livello 0 o 
1? "5 1 i v 

2020 IF liv=0 THEN POKE 32442,al 

:POKE 32443,a2:POKE 32444,a3:P0K 
E 32419,a4:POKE 32423,a5:POKE 32 
424,a6:RETURN 

2025 IF 1iv=1 THEN POKE 32442,0: 
POKE 32443,237:POKE 32444,103:PO 
KE 32419,0:POKE 32423,237:POKE 3 
2424,111:RETURN 
2030 GO TO 2010 



II 


1645 DATA "0A7FB677237EB1772BC10 


XI V/42 


















